Metrics for Distance on a great circle

start0.0ms (0%)

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

analyze1.1s (2.6%)

Memory

-2.7MiB live, 1 185.7MiB allocated; 339ms collecting garbage

Algorithm

1×

Search

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

Compiler

Compiled 67 to 28 computations (58.2% saved)

sample10.1s (22.7%)

Memory

-77.5MiB live, 13 265.9MiB allocated; 3.9s collecting garbage

Samples

8.5s	7 638×	1	valid
92.0ms	618×	0	valid

Precisions

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

ival-cos: 2.9s (36% of total)

ival-sin: 2.7s (33% of total)

adjust: 649.0ms (8.1% of total)

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

ival-pow2: 312.0ms (3.9% of total)

ival-sqrt: 308.0ms (3.8% of total)

ival-atan2: 262.0ms (3.3% of total)

ival-div!: 229.0ms (2.9% of total)

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

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

Bogosity

preprocess76.0ms (0.2%)

Memory

-12.5MiB live, 81.4MiB allocated; 20ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	234	1362
1	887	1155
2	5976	1155

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	59.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))

Status

Accuracy

Program

▶

59.6%

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

Symmetry

(negabs R)

Compiler

Compiled 106 to 52 computations (50.9% saved)

series202.0ms (0.5%)

Memory

24.9MiB live, 460.9MiB allocated; 50ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1098	14214

Stop Event

1×	iter-limit

Counts

26 → 219

Calls

Call 1

Inputs
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
R
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(-.f64 phi1 phi2)
phi1
phi2
(.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
#s(literal 1 binary64)

Outputs
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx R R)
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/48 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal -1/48 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
#s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal -1/2 binary64) lambda2))
#s(approx (/ (- lambda1 lambda2) 2) (fma.f64 #s(literal -1/2 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) lambda1)))
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))
#s(approx lambda1 lambda1)
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
#s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))
#s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (/ (- lambda1 lambda2) 2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 lambda2 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 #s(literal 1/48 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal 1/48 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))
#s(approx (- lambda1 lambda2) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx lambda2 lambda2)
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (/ (- lambda1 lambda2) 2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
#s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))
#s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))))
#s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal -1/48 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))))))
#s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))
#s(approx (/ (- phi1 phi2) 2) (fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) phi1)))
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (- phi1 phi2) (-.f64 phi1 phi2))
#s(approx phi1 phi1)
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.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)) (fma.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)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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) #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 (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
#s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
#s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))
#s(approx (/ (- phi1 phi2) 2) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 phi2 phi1)))))
#s(approx (- phi1 phi2) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 phi2 phi1)))))
#s(approx (* (cos phi1) (cos phi2)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))
#s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))
#s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
#s(approx (- phi1 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
#s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
#s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal -1/8 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))
#s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal 1/48 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))))
#s(approx (- phi1 phi2) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))
#s(approx phi2 phi2)
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.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)) (fma.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)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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) (+.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 (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))
#s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))
#s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2))))))
#s(approx (- phi1 phi2) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))

Calls

15 calls:

Time	Variable		Point	Expression
27.0ms	lambda2	@	0	((* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (- phi1 phi2) 2)) 2) (sin (/ (- phi1 phi2) 2)) (/ (- phi1 phi2) 2) (- phi1 phi2) phi1 phi2 (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (sin (/ (- lambda1 lambda2) 2)) (/ (- lambda1 lambda2) 2) (- lambda1 lambda2) lambda1 lambda2 (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) 1)
18.0ms	phi2	@	-inf	((* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (- phi1 phi2) 2)) 2) (sin (/ (- phi1 phi2) 2)) (/ (- phi1 phi2) 2) (- phi1 phi2) phi1 phi2 (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (sin (/ (- lambda1 lambda2) 2)) (/ (- lambda1 lambda2) 2) (- lambda1 lambda2) lambda1 lambda2 (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) 1)
13.0ms	lambda1	@	-inf	((* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (- phi1 phi2) 2)) 2) (sin (/ (- phi1 phi2) 2)) (/ (- phi1 phi2) 2) (- phi1 phi2) phi1 phi2 (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (sin (/ (- lambda1 lambda2) 2)) (/ (- lambda1 lambda2) 2) (- lambda1 lambda2) lambda1 lambda2 (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) 1)
13.0ms	phi1	@	-inf	((* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (- phi1 phi2) 2)) 2) (sin (/ (- phi1 phi2) 2)) (/ (- phi1 phi2) 2) (- phi1 phi2) phi1 phi2 (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (sin (/ (- lambda1 lambda2) 2)) (/ (- lambda1 lambda2) 2) (- lambda1 lambda2) lambda1 lambda2 (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) 1)
12.0ms	lambda2	@	inf	((* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (- phi1 phi2) 2)) 2) (sin (/ (- phi1 phi2) 2)) (/ (- phi1 phi2) 2) (- phi1 phi2) phi1 phi2 (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (sin (/ (- lambda1 lambda2) 2)) (/ (- lambda1 lambda2) 2) (- lambda1 lambda2) lambda1 lambda2 (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) 1)

rewrite208.0ms (0.5%)

Memory

-1.4MiB live, 419.1MiB allocated; 32ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	26	390
0	45	390
1	191	335
2	950	325
0	8182	315

Stop Event

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

Counts

26 → 937

Calls

Call 1

Inputs
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
R
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(-.f64 phi1 phi2)
phi1
phi2
(.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
#s(literal 1 binary64)

Outputs
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R) #s(literal 2 binary64))
(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) #s(literal 1 binary64))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 #s(literal 2 binary64) (.f64 #s(literal 1 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R)))
(.f64 #s(literal 2 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R)) (.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R)))
(/.f64 (+.f64 (pow.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R) #s(literal 3 binary64)) (pow.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R) #s(literal 3 binary64))) (fma.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R) (-.f64 (.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R)) (.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R)))))
(neg.f64 (.f64 #s(literal -2 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R)))
(neg.f64 (.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R) #s(literal -2 binary64)))
(fma.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R) #s(literal 1 binary64) (.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R) #s(literal 1 binary64)))
(fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R))
(fma.f64 #s(literal 1 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R) (.f64 #s(literal 1 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R)))
(fma.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R))
(-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R) (.f64 (neg.f64 R) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R) (.f64 (neg.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) R))
(-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R) (neg.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R)))
(+.f64 (.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R) #s(literal 1 binary64)) (.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R)) (.f64 #s(literal 1 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R)))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) R))
R
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(literal 1 binary64))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(.f64 #s(literal 1 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (.f64 (neg.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (neg.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))) (+.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (neg.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (fma.f64 (neg.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (neg.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (neg.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))) (-.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(neg.f64 (.f64 #s(literal -2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(neg.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal -2 binary64)))
(neg.f64 (-.f64 (neg.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 1 binary64) (neg.f64 (neg.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(fma.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (neg.f64 (neg.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(fma.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(-.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (.f64 (neg.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) #s(literal 1 binary64)))
(-.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (.f64 #s(literal -1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(-.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (neg.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(+.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (neg.f64 (neg.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(+.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 1 binary64))
(.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(/.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(literal 2 binary64))
(fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 1 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 0 binary64)))
(fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 1 binary64) (.f64 #s(literal 0 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(fma.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 0 binary64)))
(fma.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (.f64 #s(literal 0 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(+.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 0 binary64)))
(+.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (.f64 #s(literal 0 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(.f64 (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))
(sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fabs.f64 (neg.f64 (neg.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(fabs.f64 (neg.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(fabs.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(exp.f64 (.f64 (log.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(.f64 (neg.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (neg.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(pow.f64 (.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(/.f64 (fma.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64) (*.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (fma.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (+.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))))
(/.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 4 binary64))
(/.f64 (fma.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (fma.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))
(neg.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fabs.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))))) (fabs.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (fabs.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))))) (fabs.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (neg.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))))) (neg.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64)))) (.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(sqrt.f64 (.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fabs.f64 (.f64 (neg.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(fabs.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (neg.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (fabs.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))))) (fabs.f64 (fabs.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))))))
(.f64 (neg.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))))) (neg.f64 (fabs.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))))))
(.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))))
(.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(*.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(pow.f64 (fabs.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 #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))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))
(/.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1)))))
(/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64)))
(/.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(neg.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(-.f64 (/.f64 (cos.f64 #s(literal 0 binary64)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(fabs.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)))
(+.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(neg.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(fma.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))
(-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 phi2 #s(literal -1/2 binary64)) (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/2 binary64) phi1))
(*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/2 binary64) phi1))
(.f64 (-.f64 (.f64 phi1 #s(literal 1 binary64)) phi2) #s(literal 1/2 binary64))
(.f64 (fma.f64 phi1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) phi2)) #s(literal 1/4 binary64))
(*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))
(.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) #s(literal 1 binary64))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(/.f64 (*.f64 (-.f64 phi1 phi2) #s(literal -1 binary64)) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2)) #s(literal -2 binary64))
(/.f64 (/.f64 (fma.f64 phi1 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 phi2 phi1) #s(literal 1 binary64)) #s(literal -2 binary64))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) phi1) #s(literal -2 binary64)) (neg.f64 phi2)) #s(literal -2 binary64))
(/.f64 (fma.f64 (neg.f64 phi1) #s(literal 2 binary64) (*.f64 (neg.f64 phi2) #s(literal -2 binary64))) #s(literal -4 binary64))
(/.f64 (fma.f64 phi1 #s(literal 2 binary64) (*.f64 (neg.f64 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal -1/2 binary64)) (.f64 phi2 #s(literal -1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 phi2 #s(literal -1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) phi1) #s(literal 3 binary64)) (pow.f64 (.f64 phi2 #s(literal -1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1) (-.f64 (.f64 (.f64 phi2 #s(literal -1/2 binary64)) (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 phi2 #s(literal -1/2 binary64))))))
(/.f64 (fma.f64 (neg.f64 phi1) #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) (neg.f64 phi2))) #s(literal -4 binary64))
(/.f64 (fma.f64 phi1 #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (neg.f64 phi2))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (neg.f64 phi1) #s(literal -2 binary64)) (.f64 #s(literal -2 binary64) (neg.f64 phi2))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (neg.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal -2 binary64) phi2)) #s(literal -4 binary64))
(/.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 #s(literal 2 binary64) (neg.f64 phi2))) #s(literal -4 binary64))
(/.f64 (neg.f64 (-.f64 (*.f64 phi1 #s(literal 1 binary64)) phi2)) #s(literal -2 binary64))
(/.f64 (neg.f64 (fma.f64 phi1 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) phi2))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 phi1 #s(literal 1 binary64)) phi2) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi2))) (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) phi2)))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) phi1) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) phi2) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1) (fma.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi2) (.f64 (.f64 #s(literal 1/2 binary64) phi1) (*.f64 #s(literal 1/2 binary64) phi2)))))
(/.f64 (fma.f64 phi1 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 4 binary64))
(/.f64 (-.f64 phi2 phi1) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (*.f64 phi1 #s(literal 1 binary64)) phi2)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (fma.f64 phi1 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) phi2))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (-.f64 phi2 phi1)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))
(/.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) #s(literal 1 binary64))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(neg.f64 (/.f64 (-.f64 (*.f64 phi1 #s(literal 1 binary64)) phi2) #s(literal -2 binary64)))
(neg.f64 (*.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))
(fma.f64 (.f64 phi1 #s(literal 1 binary64)) #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))
(fma.f64 (.f64 phi1 #s(literal 1 binary64)) #s(literal 1/2 binary64) (.f64 phi2 #s(literal -1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 phi2) (*.f64 #s(literal 1/2 binary64) phi1))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 phi2 #s(literal -1/2 binary64)))
(fma.f64 (neg.f64 phi2) #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))
(fma.f64 (neg.f64 phi1) #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))
(fma.f64 (neg.f64 phi1) #s(literal -1/2 binary64) (*.f64 phi2 #s(literal -1/2 binary64)))
(fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))
(fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))
(fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 phi2 #s(literal -1/2 binary64)))
(-.f64 (/.f64 (*.f64 phi1 #s(literal 2 binary64)) #s(literal 4 binary64)) (/.f64 (+.f64 phi2 phi2) #s(literal 4 binary64)))
(-.f64 (*.f64 phi2 #s(literal -1/2 binary64)) (/.f64 phi1 #s(literal -2 binary64)))
(-.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi2))
(+.f64 (.f64 #s(literal 1/2 binary64) (neg.f64 phi2)) (.f64 #s(literal 1/2 binary64) phi1))
(+.f64 (.f64 phi2 #s(literal -1/2 binary64)) (.f64 #s(literal 1/2 binary64) phi1))
(+.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))
(+.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 phi2 #s(literal -1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi1 (neg.f64 phi2))) (neg.f64 phi2))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 phi1) (neg.f64 phi2))) (neg.f64 phi2))
(.f64 (.f64 #s(literal 2 binary64) (-.f64 phi2 phi1)) #s(literal -1/2 binary64))
(.f64 (.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)) #s(literal 1/2 binary64))
(*.f64 #s(literal -1/2 binary64) (+.f64 (-.f64 phi2 phi1) (-.f64 phi2 phi1)))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 phi2) phi1)) phi1)
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)
(*.f64 (-.f64 phi2 phi1) #s(literal -1 binary64))
(*.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))
(.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) #s(literal 2 binary64))
(*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))
(.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) #s(literal 4 binary64) (fma.f64 phi1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) phi2))) #s(literal 4 binary64))
(/.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) #s(literal -2 binary64) (-.f64 phi2 phi1)) #s(literal -2 binary64))
(/.f64 (fma.f64 (-.f64 (.f64 phi1 #s(literal 1 binary64)) phi2) #s(literal 2 binary64) (.f64 (-.f64 (*.f64 phi1 #s(literal 1 binary64)) phi2) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (fma.f64 (-.f64 (.f64 phi1 #s(literal 1 binary64)) phi2) #s(literal 4 binary64) (.f64 (fma.f64 phi1 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64))) #s(literal 8 binary64))
(/.f64 (fma.f64 (-.f64 (.f64 phi1 #s(literal 1 binary64)) phi2) #s(literal -2 binary64) (.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal -4 binary64))
(/.f64 (fma.f64 (-.f64 (.f64 phi1 #s(literal 1 binary64)) phi2) #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (fma.f64 (fma.f64 phi1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64) (.f64 (-.f64 (*.f64 phi1 #s(literal 1 binary64)) phi2) #s(literal 4 binary64))) #s(literal 8 binary64))
(/.f64 (fma.f64 (fma.f64 phi1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) phi2)) #s(literal 4 binary64) (.f64 (fma.f64 phi1 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) phi2)) #s(literal 4 binary64))) #s(literal 16 binary64))
(/.f64 (fma.f64 (fma.f64 phi1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) phi2)) #s(literal -2 binary64) (.f64 (-.f64 phi2 phi1) #s(literal 4 binary64))) #s(literal -8 binary64))
(/.f64 (fma.f64 (fma.f64 phi1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 4 binary64))) #s(literal 8 binary64))
(/.f64 (fma.f64 (-.f64 phi2 phi1) #s(literal 2 binary64) (.f64 (-.f64 (.f64 phi1 #s(literal 1 binary64)) phi2) #s(literal -2 binary64))) #s(literal -4 binary64))
(/.f64 (fma.f64 (-.f64 phi2 phi1) #s(literal 4 binary64) (.f64 (fma.f64 phi1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) phi2)) #s(literal -2 binary64))) #s(literal -8 binary64))
(/.f64 (fma.f64 (-.f64 phi2 phi1) #s(literal -2 binary64) (*.f64 (-.f64 phi2 phi1) #s(literal -2 binary64))) #s(literal 4 binary64))
(/.f64 (fma.f64 (-.f64 phi2 phi1) #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal -4 binary64))
(/.f64 (fma.f64 (-.f64 phi1 phi2) #s(literal 2 binary64) (.f64 (-.f64 (.f64 phi1 #s(literal 1 binary64)) phi2) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (fma.f64 (-.f64 phi1 phi2) #s(literal 4 binary64) (.f64 (fma.f64 phi1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64))) #s(literal 8 binary64))
(/.f64 (fma.f64 (-.f64 phi1 phi2) #s(literal -2 binary64) (*.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal -4 binary64))
(/.f64 (fma.f64 (-.f64 phi1 phi2) #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 phi2 phi2) (.f64 phi1 phi1)) (-.f64 (neg.f64 phi2) phi1))
(/.f64 (-.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)) (+.f64 phi2 phi1))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))
(/.f64 (+.f64 (pow.f64 (neg.f64 phi2) #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (+.f64 (.f64 phi2 phi2) (-.f64 (.f64 phi1 phi1) (*.f64 (neg.f64 phi2) phi1))))
(/.f64 (-.f64 (pow.f64 (neg.f64 phi2) #s(literal 3 binary64)) (pow.f64 (neg.f64 phi1) #s(literal 3 binary64))) (+.f64 (.f64 phi2 phi2) (+.f64 (.f64 phi1 phi1) (*.f64 (neg.f64 phi2) (neg.f64 phi1)))))
(/.f64 (+.f64 (-.f64 (.f64 phi1 #s(literal 1 binary64)) phi2) (-.f64 (.f64 phi1 #s(literal 1 binary64)) phi2)) #s(literal 2 binary64))
(/.f64 (+.f64 (-.f64 phi1 phi2) (-.f64 (*.f64 phi1 #s(literal 1 binary64)) phi2)) #s(literal 2 binary64))
(/.f64 (+.f64 (fma.f64 phi1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) phi2)) (fma.f64 phi1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) phi2))) #s(literal 4 binary64))
(/.f64 (+.f64 (-.f64 phi2 phi1) (-.f64 phi2 phi1)) #s(literal -2 binary64))
(/.f64 (+.f64 (-.f64 (*.f64 phi1 #s(literal 1 binary64)) phi2) (-.f64 phi1 phi2)) #s(literal 2 binary64))
(/.f64 (+.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) #s(literal 2 binary64))
(/.f64 (fma.f64 (-.f64 (.f64 phi1 #s(literal 1 binary64)) phi2) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (-.f64 (*.f64 phi1 #s(literal 1 binary64)) phi2))) #s(literal 4 binary64))
(/.f64 (fma.f64 (-.f64 (.f64 phi1 #s(literal 1 binary64)) phi2) #s(literal 4 binary64) (.f64 #s(literal 2 binary64) (fma.f64 phi1 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) phi2)))) #s(literal 8 binary64))
(/.f64 (fma.f64 (-.f64 (.f64 phi1 #s(literal 1 binary64)) phi2) #s(literal -2 binary64) (.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))) #s(literal -4 binary64))
(/.f64 (fma.f64 (-.f64 (.f64 phi1 #s(literal 1 binary64)) phi2) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))
(/.f64 (fma.f64 (fma.f64 phi1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64) (.f64 #s(literal 4 binary64) (-.f64 (*.f64 phi1 #s(literal 1 binary64)) phi2))) #s(literal 8 binary64))
(/.f64 (fma.f64 (fma.f64 phi1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) phi2)) #s(literal 4 binary64) (.f64 #s(literal 4 binary64) (fma.f64 phi1 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) phi2)))) #s(literal 16 binary64))
(/.f64 (fma.f64 (fma.f64 phi1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) phi2)) #s(literal -2 binary64) (.f64 #s(literal 4 binary64) (-.f64 phi2 phi1))) #s(literal -8 binary64))
(/.f64 (fma.f64 (fma.f64 phi1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) phi2)) #s(literal 2 binary64) (.f64 #s(literal 4 binary64) (-.f64 phi1 phi2))) #s(literal 8 binary64))
(/.f64 (fma.f64 (-.f64 phi2 phi1) #s(literal 2 binary64) (.f64 #s(literal -2 binary64) (-.f64 (.f64 phi1 #s(literal 1 binary64)) phi2))) #s(literal -4 binary64))
(/.f64 (fma.f64 (-.f64 phi2 phi1) #s(literal 4 binary64) (.f64 #s(literal -2 binary64) (fma.f64 phi1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) phi2)))) #s(literal -8 binary64))
(/.f64 (fma.f64 (-.f64 phi2 phi1) #s(literal -2 binary64) (*.f64 #s(literal -2 binary64) (-.f64 phi2 phi1))) #s(literal 4 binary64))
(/.f64 (fma.f64 (-.f64 phi2 phi1) #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) (-.f64 phi1 phi2))) #s(literal -4 binary64))
(/.f64 (fma.f64 (-.f64 phi1 phi2) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (-.f64 (.f64 phi1 #s(literal 1 binary64)) phi2))) #s(literal 4 binary64))
(/.f64 (fma.f64 (-.f64 phi1 phi2) #s(literal 4 binary64) (.f64 #s(literal 2 binary64) (fma.f64 phi1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) phi2)))) #s(literal 8 binary64))
(/.f64 (fma.f64 (-.f64 phi1 phi2) #s(literal -2 binary64) (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))) #s(literal -4 binary64))
(/.f64 (fma.f64 (-.f64 phi1 phi2) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))
(/.f64 (.f64 #s(literal 2 binary64) (-.f64 (.f64 phi1 #s(literal 1 binary64)) phi2)) #s(literal 2 binary64))
(/.f64 (.f64 #s(literal 2 binary64) (fma.f64 phi1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) phi2))) #s(literal 4 binary64))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1)) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #s(literal 2 binary64))
(/.f64 (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (neg.f64 phi2) #s(literal 3 binary64))) (fma.f64 phi1 phi1 (-.f64 (.f64 phi2 phi2) (.f64 phi1 (neg.f64 phi2)))))
(/.f64 (-.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) (fma.f64 phi1 phi1 (fma.f64 phi2 phi2 (*.f64 phi1 phi2))))
(neg.f64 (.f64 #s(literal -2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(neg.f64 (*.f64 (-.f64 phi2 phi1) #s(literal 1 binary64)))
(neg.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))))
(neg.f64 (fma.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64) (*.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))))
(neg.f64 (-.f64 phi2 phi1))
(fma.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 phi2 #s(literal -1/2 binary64)) (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(fma.f64 (.f64 #s(literal 2 binary64) (-.f64 phi2 phi1)) #s(literal -1/2 binary64) (.f64 #s(literal 0 binary64) (-.f64 phi1 phi2)))
(fma.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 0 binary64))
(fma.f64 (.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)) #s(literal 1/2 binary64) (.f64 #s(literal 0 binary64) (-.f64 phi1 phi2)))
(fma.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 0 binary64))
(fma.f64 #s(literal -1/2 binary64) (+.f64 (-.f64 phi2 phi1) (-.f64 phi2 phi1)) (*.f64 #s(literal 0 binary64) (-.f64 phi1 phi2)))
(fma.f64 #s(literal -1/2 binary64) (+.f64 (-.f64 phi2 phi1) (-.f64 phi2 phi1)) #s(literal 0 binary64))
(fma.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(fma.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(fma.f64 (-.f64 (.f64 phi1 #s(literal 1 binary64)) phi2) #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(fma.f64 (.f64 phi1 #s(literal 1 binary64)) #s(literal 1/2 binary64) (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(fma.f64 (.f64 phi1 #s(literal 1 binary64)) #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal -1/2 binary64))))
(fma.f64 (.f64 phi1 #s(literal 1 binary64)) #s(literal 1 binary64) (.f64 (*.f64 phi2 #s(literal -1/2 binary64)) #s(literal 2 binary64)))
(fma.f64 (fma.f64 phi1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) phi2)) #s(literal 1/4 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(fma.f64 (.f64 #s(literal 1/2 binary64) phi1) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal -1/2 binary64))))
(fma.f64 (.f64 #s(literal 1/2 binary64) phi1) #s(literal 2 binary64) (.f64 (*.f64 phi2 #s(literal -1/2 binary64)) #s(literal 2 binary64)))
(fma.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(fma.f64 (-.f64 phi2 phi1) #s(literal -1 binary64) (*.f64 #s(literal 0 binary64) (-.f64 phi1 phi2)))
(fma.f64 (-.f64 phi2 phi1) #s(literal -1 binary64) #s(literal 0 binary64))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 #s(literal 0 binary64) (-.f64 phi1 phi2)))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) #s(literal 0 binary64))
(fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(fma.f64 #s(literal 1/2 binary64) phi1 (fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(fma.f64 (neg.f64 phi1) #s(literal -1/2 binary64) (fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(fma.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(fma.f64 #s(literal 1 binary64) (-.f64 phi1 phi2) (*.f64 #s(literal 0 binary64) (-.f64 phi1 phi2)))
(fma.f64 #s(literal 1 binary64) (-.f64 phi1 phi2) #s(literal 0 binary64))
(fma.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(fma.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) #s(literal 2 binary64) (.f64 #s(literal 0 binary64) (-.f64 phi1 phi2)))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) #s(literal 2 binary64) #s(literal 0 binary64))
(fma.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(fma.f64 (-.f64 phi1 phi2) #s(literal 1 binary64) (*.f64 #s(literal 0 binary64) (-.f64 phi1 phi2)))
(fma.f64 (-.f64 phi1 phi2) #s(literal 1 binary64) #s(literal 0 binary64))
(fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(fma.f64 phi1 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 phi2 #s(literal -1/2 binary64))))
(fma.f64 phi1 #s(literal 1 binary64) (.f64 (.f64 phi2 #s(literal -1/2 binary64)) #s(literal 2 binary64)))
(fma.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal -1/2 binary64))))
(fma.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1) (.f64 (*.f64 phi2 #s(literal -1/2 binary64)) #s(literal 2 binary64)))
(fma.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 0 binary64) (-.f64 phi1 phi2)))
(fma.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) #s(literal 0 binary64))
(-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1) (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal 1/2 binary64) phi2))
(-.f64 (.f64 #s(literal 1/2 binary64) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(-.f64 (neg.f64 phi2) (neg.f64 phi1))
(-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal -1/2 binary64) (-.f64 phi1 phi2)))
(-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))
(-.f64 phi1 phi2)
(+.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1) (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 #s(literal -1/2 binary64)))
(+.f64 (.f64 phi1 #s(literal 1 binary64)) (.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal -1/2 binary64))))
(+.f64 (.f64 phi1 #s(literal 1 binary64)) (.f64 (*.f64 phi2 #s(literal -1/2 binary64)) #s(literal 2 binary64)))
(+.f64 (.f64 #s(literal 1/2 binary64) phi1) (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(+.f64 (neg.f64 phi2) phi1)
(+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(+.f64 (-.f64 phi1 phi2) (*.f64 #s(literal 0 binary64) (-.f64 phi1 phi2)))
(+.f64 (-.f64 phi1 phi2) #s(literal 0 binary64))
(+.f64 phi1 (neg.f64 phi2))
phi1
phi2
(.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (cos.f64 phi2))
(.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fabs.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))))) (fabs.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64)))))
(.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)))
(.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64))
(.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64)))) (.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)))
(.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))))
(.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))
(.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (.f64 (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))
(.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64))
(/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 phi2 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 (fabs.f64 phi2) phi1)) (cos.f64 (+.f64 (fabs.f64 phi2) phi1)))) #s(literal 2 binary64))
(/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1)))))) #s(literal 2 binary64))
(/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64))
(/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64))
(/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))
(/.f64 (.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal -2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 phi2 (fabs.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (-.f64 (fabs.f64 phi2) phi1)) (cos.f64 (+.f64 (fabs.f64 phi2) phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal -4 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 lambda2 lambda1))) (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 phi2 (fabs.f64 phi1))))) #s(literal 4 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 lambda2 lambda1))) (+.f64 (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 phi1))))) #s(literal 4 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 lambda2 lambda1))) (+.f64 (cos.f64 (-.f64 (fabs.f64 phi2) phi1)) (cos.f64 (+.f64 (fabs.f64 phi2) phi1)))) #s(literal 4 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1)))))) #s(literal 4 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 lambda2 lambda1))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 4 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 lambda2 lambda1))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 4 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 lambda2 lambda1))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 4 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 lambda2 lambda1))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 4 binary64))
(/.f64 (*.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1))) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal -4 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 phi2 (fabs.f64 phi1)))) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 4 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 phi1)))) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 4 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 (fabs.f64 phi2) phi1)) (cos.f64 (+.f64 (fabs.f64 phi2) phi1))) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 4 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 4 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1))))) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 4 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1))) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 4 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2))))) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 4 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) #s(literal -2 binary64))
(/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))
(/.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 1 binary64))
(neg.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(+.f64 (.f64 (.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))
(.f64 (neg.f64 (neg.f64 (cos.f64 phi1))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)))
(.f64 (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1 binary64)))
(.f64 (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))
(.f64 (neg.f64 (cos.f64 phi1)) (.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))))
(.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))
(.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 1 binary64)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(.f64 (cos.f64 phi2) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)))
(/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 phi2 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 (fabs.f64 phi2) phi1)) (cos.f64 (+.f64 (fabs.f64 phi2) phi1)))) #s(literal 2 binary64))
(/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1)))))) #s(literal 2 binary64))
(/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64))
(/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64))
(/.f64 (.f64 (cos.f64 phi1) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64))
(/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2)))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal -2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 phi2 (fabs.f64 phi1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 phi1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (-.f64 (fabs.f64 phi2) phi1)) (cos.f64 (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) #s(literal -2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
(/.f64 (.f64 (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 1 binary64))
(neg.f64 (.f64 (.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (*.f64 #s(literal 1 binary64) (cos.f64 phi2))))
(fma.f64 (.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 1/2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))))
(fma.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi1)) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2))))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (*.f64 #s(literal 1 binary64) (cos.f64 phi1))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (.f64 (sin.f64 phi2) #s(literal 0 binary64))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (.f64 #s(literal 1 binary64) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (.f64 (sin.f64 phi1) #s(literal 0 binary64))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (.f64 #s(literal 1 binary64) (cos.f64 phi1))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(+.f64 (.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2))) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 1/2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(.f64 (+.f64 #s(literal 1 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 (cos.f64 (+.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(*.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1))) #s(literal -1/2 binary64))
(*.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 phi2 (fabs.f64 phi1)))) #s(literal 1/2 binary64))
(*.f64 (+.f64 (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 phi1)))) #s(literal 1/2 binary64))
(*.f64 (+.f64 (cos.f64 (-.f64 (fabs.f64 phi2) phi1)) (cos.f64 (+.f64 (fabs.f64 phi2) phi1))) #s(literal 1/2 binary64))
(*.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) #s(literal 1/2 binary64))
(*.f64 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1))))) #s(literal 1/2 binary64))
(*.f64 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64))
(*.f64 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2))))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/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 1/2 binary64))
(.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 (.f64 (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal -1 binary64)) #s(literal -2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (fma.f64 (*.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 2 binary64) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (fma.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (-.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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (+.f64 phi2 phi1)) #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))) (fma.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 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (fma.f64 (cos.f64 (+.f64 phi2 phi1)) #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 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 phi2 (fabs.f64 phi1))))) #s(literal -2 binary64))
(/.f64 (neg.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 (neg.f64 (+.f64 (cos.f64 (-.f64 (fabs.f64 phi2) phi1)) (cos.f64 (+.f64 (fabs.f64 phi2) phi1)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1)))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #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)) (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 (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)) (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 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)))) (cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi1)))) (cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1))) (cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi2)) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)))) (cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi2)) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi2)) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi1)))) (cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi2)) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi2)) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1))) (cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi2)) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)))) (cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi1)))) (cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi2)))) (cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi2)))) (cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi2)))) (cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) (neg.f64 phi1))) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) (fabs.f64 phi1))) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi2)) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi2)) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi2)) (neg.f64 phi1))) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi2)) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi2)) (fabs.f64 phi1))) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi2)) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi2)) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) (neg.f64 phi2))) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) (fabs.f64 phi2))) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi1)) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi1)) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi1)) (neg.f64 phi2))) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi1)) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi1)) (fabs.f64 phi2))) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi1)) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi1)) phi2))) #s(literal 2 binary64))
(/.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 phi2 (fabs.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 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2))))) #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 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 phi2 (fabs.f64 phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 (fabs.f64 phi2) phi1)) (cos.f64 (+.f64 (fabs.f64 phi2) phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1)))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))))
(/.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 phi2) (cos.f64 phi1)) #s(literal 1 binary64))
(neg.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (cos.f64 phi1) (.f64 (*.f64 #s(literal 1 binary64) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (cos.f64 phi2) (.f64 (*.f64 #s(literal 1 binary64) (cos.f64 phi1)) (cos.f64 phi2)))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (*.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 1/2 binary64) (/.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 (cos.f64 phi2) (*.f64 #s(literal 1 binary64) (cos.f64 phi1))))
(fma.f64 (cos.f64 phi1) (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (cos.f64 phi1) (*.f64 #s(literal 1 binary64) (cos.f64 phi2))))
(-.f64 (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) #s(literal 2 binary64)) (/.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)))
(-.f64 (.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 1/2 binary64)) (neg.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(-.f64 (*.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 1/2 binary64)) (/.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64)))
(+.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) #s(literal 0 binary64))) (.f64 (cos.f64 phi2) (.f64 #s(literal 1 binary64) (cos.f64 phi1))))
(+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 phi2) #s(literal 0 binary64))) (.f64 (cos.f64 phi1) (.f64 #s(literal 1 binary64) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (cos.f64 phi2)) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi1)) (cos.f64 phi2)))
(+.f64 (.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (cos.f64 phi1)) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (cos.f64 phi1)))
(+.f64 (/.f64 (cos.f64 (-.f64 (fabs.f64 phi2) phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 (fabs.f64 phi2) phi1)) #s(literal 2 binary64)))
(+.f64 (/.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 phi2 (fabs.f64 phi1))) #s(literal 2 binary64)))
(+.f64 (/.f64 (cos.f64 (-.f64 phi2 (fabs.f64 phi1))) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) #s(literal 2 binary64)))
(+.f64 (/.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 phi1))) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1))) #s(literal 2 binary64)))
(+.f64 (/.f64 (cos.f64 (+.f64 (fabs.f64 phi2) phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 (fabs.f64 phi2) phi1)) #s(literal 2 binary64)))
(+.f64 (/.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))) #s(literal 2 binary64)) (/.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) #s(literal 2 binary64)))
(+.f64 (/.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (/.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))) #s(literal 2 binary64)) (/.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.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 1/2 binary64)))
(+.f64 (*.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 1/2 binary64)) (/.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.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 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi1)) (.f64 (sin.f64 phi1) #s(literal 0 binary64)))) (.f64 (sin.f64 phi1) #s(literal 0 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 (sin.f64 phi1) #s(literal 0 binary64))) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi1)) (.f64 #s(literal 1 binary64) (cos.f64 phi1)))) (-.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (cos.f64 phi1))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (-.f64 (.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi1)) (.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(sin.f64 (+.f64 (neg.f64 (fabs.f64 phi1)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)))
(sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi1)))
(sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1))
(fma.f64 (sin.f64 (neg.f64 phi1)) #s(literal 0 binary64) (*.f64 #s(literal 1 binary64) (cos.f64 phi1)))
(fma.f64 (sin.f64 (fabs.f64 phi1)) #s(literal 0 binary64) (*.f64 #s(literal 1 binary64) (cos.f64 phi1)))
(fma.f64 (sin.f64 phi1) #s(literal 0 binary64) (*.f64 #s(literal 1 binary64) (cos.f64 phi1)))
(fma.f64 #s(literal 0 binary64) (sin.f64 phi1) (*.f64 #s(literal 1 binary64) (cos.f64 phi1)))
(fma.f64 #s(literal 1 binary64) (cos.f64 phi1) (*.f64 (sin.f64 phi1) #s(literal 0 binary64)))
(fma.f64 (cos.f64 phi1) #s(literal 1 binary64) (*.f64 (sin.f64 phi1) #s(literal 0 binary64)))
(-.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 (neg.f64 (cos.f64 phi1)) #s(literal 1 binary64)))
(-.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (neg.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi1))))
(-.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 (PI.f64) #s(literal -1/2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 (fabs.f64 phi1))))
(cos.f64 (neg.f64 (fabs.f64 phi1)))
(cos.f64 (neg.f64 phi1))
(cos.f64 (fabs.f64 phi1))
(cos.f64 phi1)
(+.f64 (.f64 (sin.f64 (neg.f64 phi1)) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (cos.f64 phi1)))
(+.f64 (.f64 (sin.f64 (fabs.f64 phi1)) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (cos.f64 phi1)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi1)) (.f64 (sin.f64 phi1) #s(literal 0 binary64)))
(+.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (cos.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (.f64 (sin.f64 phi2) #s(literal 0 binary64)))) (.f64 (sin.f64 phi2) #s(literal 0 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (sin.f64 phi2) #s(literal 0 binary64))) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (.f64 #s(literal 1 binary64) (cos.f64 phi2)))) (-.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (cos.f64 phi2))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (-.f64 (.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (.f64 #s(literal 1 binary64) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (cos.f64 phi2))))))
(sin.f64 (+.f64 (neg.f64 (fabs.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))
(sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fabs.f64 phi2)))
(sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))
(fma.f64 (sin.f64 (fabs.f64 phi2)) #s(literal 0 binary64) (*.f64 #s(literal 1 binary64) (cos.f64 phi2)))
(fma.f64 (neg.f64 (sin.f64 phi2)) #s(literal 0 binary64) (*.f64 #s(literal 1 binary64) (cos.f64 phi2)))
(fma.f64 (sin.f64 phi2) #s(literal 0 binary64) (*.f64 #s(literal 1 binary64) (cos.f64 phi2)))
(fma.f64 #s(literal 0 binary64) (sin.f64 phi2) (*.f64 #s(literal 1 binary64) (cos.f64 phi2)))
(fma.f64 #s(literal 1 binary64) (cos.f64 phi2) (*.f64 (sin.f64 phi2) #s(literal 0 binary64)))
(fma.f64 (cos.f64 phi2) #s(literal 1 binary64) (*.f64 (sin.f64 phi2) #s(literal 0 binary64)))
(-.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (neg.f64 (cos.f64 phi2)) #s(literal 1 binary64)))
(-.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (neg.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2))))
(-.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 (PI.f64) #s(literal -1/2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 (fabs.f64 phi2))))
(cos.f64 (neg.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 #s(literal 1 binary64) (cos.f64 phi2)))
(+.f64 (.f64 (sin.f64 (fabs.f64 phi2)) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (cos.f64 phi2)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (.f64 (sin.f64 phi2) #s(literal 0 binary64)))
(+.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (cos.f64 phi2)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (+.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))
(neg.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(fma.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))
(fma.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))
(fma.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))
(+.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))
(+.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))
(+.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/2 binary64) lambda1))
(*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) lambda2) (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/2 binary64) lambda1))
(.f64 (-.f64 (.f64 lambda1 #s(literal 1 binary64)) lambda2) #s(literal 1/2 binary64))
(.f64 (fma.f64 lambda1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) lambda2)) #s(literal 1/4 binary64))
(*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(/.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1 binary64)) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)) #s(literal -2 binary64))
(/.f64 (/.f64 (fma.f64 lambda1 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal 1 binary64)) #s(literal -2 binary64))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) lambda1) #s(literal -2 binary64)) (neg.f64 lambda2)) #s(literal -2 binary64))
(/.f64 (fma.f64 (neg.f64 lambda1) #s(literal 2 binary64) (*.f64 (neg.f64 lambda2) #s(literal -2 binary64))) #s(literal -4 binary64))
(/.f64 (fma.f64 lambda1 #s(literal 2 binary64) (*.f64 (neg.f64 lambda2) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (.f64 lambda2 #s(literal -1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 lambda2 #s(literal -1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) lambda1) #s(literal 3 binary64)) (pow.f64 (.f64 lambda2 #s(literal -1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 #s(literal 1/2 binary64) lambda1) (-.f64 (.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 lambda2 #s(literal -1/2 binary64))))))
(/.f64 (fma.f64 (neg.f64 lambda1) #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) (neg.f64 lambda2))) #s(literal -4 binary64))
(/.f64 (fma.f64 lambda1 #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (neg.f64 lambda2))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (neg.f64 lambda1) #s(literal -2 binary64)) (.f64 #s(literal -2 binary64) (neg.f64 lambda2))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (neg.f64 lambda1) #s(literal 2 binary64)) (.f64 #s(literal -2 binary64) lambda2)) #s(literal -4 binary64))
(/.f64 (-.f64 (.f64 lambda1 #s(literal -2 binary64)) (.f64 #s(literal 2 binary64) (neg.f64 lambda2))) #s(literal -4 binary64))
(/.f64 (neg.f64 (-.f64 (*.f64 lambda1 #s(literal 1 binary64)) lambda2)) #s(literal -2 binary64))
(/.f64 (neg.f64 (fma.f64 lambda1 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) lambda2))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 lambda1 #s(literal 1 binary64)) lambda2) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (.f64 #s(literal 1/2 binary64) lambda2) (.f64 #s(literal 1/2 binary64) lambda2))) (fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) lambda1) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) lambda2) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 #s(literal 1/2 binary64) lambda1) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda2) (.f64 #s(literal 1/2 binary64) lambda2) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (*.f64 #s(literal 1/2 binary64) lambda2)))))
(/.f64 (fma.f64 lambda1 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) lambda2)) #s(literal 4 binary64))
(/.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (*.f64 lambda1 #s(literal 1 binary64)) lambda2)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (fma.f64 lambda1 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) lambda2))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (-.f64 lambda2 lambda1)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(neg.f64 (/.f64 (-.f64 (*.f64 lambda1 #s(literal 1 binary64)) lambda2) #s(literal -2 binary64)))
(neg.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64)))
(fma.f64 (.f64 lambda1 #s(literal 1 binary64)) #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))
(fma.f64 (.f64 lambda1 #s(literal 1 binary64)) #s(literal 1/2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))
(fma.f64 (neg.f64 lambda1) #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))
(fma.f64 (neg.f64 lambda1) #s(literal -1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(fma.f64 (neg.f64 lambda2) #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 lambda2) (*.f64 #s(literal 1/2 binary64) lambda1))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 lambda2 #s(literal -1/2 binary64)))
(fma.f64 lambda2 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(-.f64 (/.f64 (*.f64 lambda1 #s(literal 2 binary64)) #s(literal 4 binary64)) (/.f64 (+.f64 lambda2 lambda2) #s(literal 4 binary64)))
(-.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (/.f64 lambda1 #s(literal -2 binary64)))
(-.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 #s(literal 1/2 binary64) lambda2))
(+.f64 (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)) (.f64 #s(literal 1/2 binary64) lambda1))
(+.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1))
(+.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))
(+.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 lambda2 #s(literal -1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 lambda1 (neg.f64 lambda2))) (neg.f64 lambda2))
(.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64))
(.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(*.f64 #s(literal -1/2 binary64) (+.f64 (-.f64 lambda2 lambda1) (-.f64 lambda2 lambda1)))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 lambda2) lambda1)) lambda1)
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)
(*.f64 (-.f64 lambda2 lambda1) #s(literal -1 binary64))
(*.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))
(.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))
(.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) #s(literal 4 binary64) (fma.f64 lambda1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) lambda2))) #s(literal 4 binary64))
(/.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) #s(literal -2 binary64) (-.f64 lambda2 lambda1)) #s(literal -2 binary64))
(/.f64 (fma.f64 (-.f64 (.f64 lambda1 #s(literal 1 binary64)) lambda2) #s(literal 2 binary64) (.f64 (-.f64 (*.f64 lambda1 #s(literal 1 binary64)) lambda2) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (fma.f64 (-.f64 (.f64 lambda1 #s(literal 1 binary64)) lambda2) #s(literal 4 binary64) (.f64 (fma.f64 lambda1 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) lambda2)) #s(literal 2 binary64))) #s(literal 8 binary64))
(/.f64 (fma.f64 (-.f64 (.f64 lambda1 #s(literal 1 binary64)) lambda2) #s(literal -2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal 2 binary64))) #s(literal -4 binary64))
(/.f64 (fma.f64 (-.f64 (.f64 lambda1 #s(literal 1 binary64)) lambda2) #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (fma.f64 (fma.f64 lambda1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) lambda2)) #s(literal 2 binary64) (.f64 (-.f64 (*.f64 lambda1 #s(literal 1 binary64)) lambda2) #s(literal 4 binary64))) #s(literal 8 binary64))
(/.f64 (fma.f64 (fma.f64 lambda1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) lambda2)) #s(literal 4 binary64) (.f64 (fma.f64 lambda1 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) lambda2)) #s(literal 4 binary64))) #s(literal 16 binary64))
(/.f64 (fma.f64 (fma.f64 lambda1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) lambda2)) #s(literal -2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal 4 binary64))) #s(literal -8 binary64))
(/.f64 (fma.f64 (fma.f64 lambda1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) lambda2)) #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64))) #s(literal 8 binary64))
(/.f64 (fma.f64 (-.f64 lambda2 lambda1) #s(literal 2 binary64) (.f64 (-.f64 (.f64 lambda1 #s(literal 1 binary64)) lambda2) #s(literal -2 binary64))) #s(literal -4 binary64))
(/.f64 (fma.f64 (-.f64 lambda2 lambda1) #s(literal 4 binary64) (.f64 (fma.f64 lambda1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) lambda2)) #s(literal -2 binary64))) #s(literal -8 binary64))
(/.f64 (fma.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64))) #s(literal 4 binary64))
(/.f64 (fma.f64 (-.f64 lambda2 lambda1) #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) #s(literal -4 binary64))
(/.f64 (fma.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64) (.f64 (-.f64 (.f64 lambda1 #s(literal 1 binary64)) lambda2) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (fma.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64) (.f64 (fma.f64 lambda1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) lambda2)) #s(literal 2 binary64))) #s(literal 8 binary64))
(/.f64 (fma.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal 2 binary64))) #s(literal -4 binary64))
(/.f64 (fma.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (neg.f64 lambda2) (neg.f64 lambda2)) (.f64 lambda1 lambda1)) (-.f64 (neg.f64 lambda2) lambda1))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
(/.f64 (+.f64 (pow.f64 (neg.f64 lambda2) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 (neg.f64 lambda2) (neg.f64 lambda2) (-.f64 (.f64 lambda1 lambda1) (.f64 (neg.f64 lambda2) lambda1))))
(/.f64 (+.f64 (-.f64 (.f64 lambda1 #s(literal 1 binary64)) lambda2) (-.f64 (.f64 lambda1 #s(literal 1 binary64)) lambda2)) #s(literal 2 binary64))
(/.f64 (+.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 lambda1 #s(literal 1 binary64)) lambda2)) #s(literal 2 binary64))
(/.f64 (+.f64 (fma.f64 lambda1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) lambda2)) (fma.f64 lambda1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) lambda2))) #s(literal 4 binary64))
(/.f64 (+.f64 (-.f64 lambda2 lambda1) (-.f64 lambda2 lambda1)) #s(literal -2 binary64))
(/.f64 (+.f64 (-.f64 (*.f64 lambda1 #s(literal 1 binary64)) lambda2) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(/.f64 (+.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(/.f64 (fma.f64 (-.f64 (.f64 lambda1 #s(literal 1 binary64)) lambda2) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (-.f64 (*.f64 lambda1 #s(literal 1 binary64)) lambda2))) #s(literal 4 binary64))
(/.f64 (fma.f64 (-.f64 (.f64 lambda1 #s(literal 1 binary64)) lambda2) #s(literal 4 binary64) (.f64 #s(literal 2 binary64) (fma.f64 lambda1 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) lambda2)))) #s(literal 8 binary64))
(/.f64 (fma.f64 (-.f64 (.f64 lambda1 #s(literal 1 binary64)) lambda2) #s(literal -2 binary64) (.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))) #s(literal -4 binary64))
(/.f64 (fma.f64 (-.f64 (.f64 lambda1 #s(literal 1 binary64)) lambda2) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64))
(/.f64 (fma.f64 (fma.f64 lambda1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) lambda2)) #s(literal 2 binary64) (.f64 #s(literal 4 binary64) (-.f64 (*.f64 lambda1 #s(literal 1 binary64)) lambda2))) #s(literal 8 binary64))
(/.f64 (fma.f64 (fma.f64 lambda1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) lambda2)) #s(literal 4 binary64) (.f64 #s(literal 4 binary64) (fma.f64 lambda1 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) lambda2)))) #s(literal 16 binary64))
(/.f64 (fma.f64 (fma.f64 lambda1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) lambda2)) #s(literal -2 binary64) (.f64 #s(literal 4 binary64) (-.f64 lambda2 lambda1))) #s(literal -8 binary64))
(/.f64 (fma.f64 (fma.f64 lambda1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) lambda2)) #s(literal 2 binary64) (.f64 #s(literal 4 binary64) (-.f64 lambda1 lambda2))) #s(literal 8 binary64))
(/.f64 (fma.f64 (-.f64 lambda2 lambda1) #s(literal 2 binary64) (.f64 #s(literal -2 binary64) (-.f64 (.f64 lambda1 #s(literal 1 binary64)) lambda2))) #s(literal -4 binary64))
(/.f64 (fma.f64 (-.f64 lambda2 lambda1) #s(literal 4 binary64) (.f64 #s(literal -2 binary64) (fma.f64 lambda1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) lambda2)))) #s(literal -8 binary64))
(/.f64 (fma.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64) (*.f64 #s(literal -2 binary64) (-.f64 lambda2 lambda1))) #s(literal 4 binary64))
(/.f64 (fma.f64 (-.f64 lambda2 lambda1) #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) (-.f64 lambda1 lambda2))) #s(literal -4 binary64))
(/.f64 (fma.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (-.f64 (.f64 lambda1 #s(literal 1 binary64)) lambda2))) #s(literal 4 binary64))
(/.f64 (fma.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64) (.f64 #s(literal 2 binary64) (fma.f64 lambda1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) lambda2)))) #s(literal 8 binary64))
(/.f64 (fma.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64) (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))) #s(literal -4 binary64))
(/.f64 (fma.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64))
(/.f64 (.f64 #s(literal 2 binary64) (-.f64 (.f64 lambda1 #s(literal 1 binary64)) lambda2)) #s(literal 2 binary64))
(/.f64 (.f64 #s(literal 2 binary64) (fma.f64 lambda1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) lambda2))) #s(literal 4 binary64))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1)) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 2 binary64))
(/.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))) (fma.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))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2))))
(neg.f64 (.f64 #s(literal -2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(neg.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal 1 binary64)))
(neg.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))))
(neg.f64 (fma.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))))
(neg.f64 (-.f64 lambda2 lambda1))
(fma.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/2 binary64) lambda1) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(fma.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) (.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)))
(fma.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 0 binary64))
(fma.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) (.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)))
(fma.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 0 binary64))
(fma.f64 #s(literal -1/2 binary64) (+.f64 (-.f64 lambda2 lambda1) (-.f64 lambda2 lambda1)) (*.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)))
(fma.f64 #s(literal -1/2 binary64) (+.f64 (-.f64 lambda2 lambda1) (-.f64 lambda2 lambda1)) #s(literal 0 binary64))
(fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(fma.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) lambda2) (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/2 binary64) lambda1) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(fma.f64 (-.f64 (.f64 lambda1 #s(literal 1 binary64)) lambda2) #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(fma.f64 (.f64 lambda1 #s(literal 1 binary64)) #s(literal 1/2 binary64) (fma.f64 lambda2 #s(literal -1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(fma.f64 (.f64 lambda1 #s(literal 1 binary64)) #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64))))
(fma.f64 (.f64 lambda1 #s(literal 1 binary64)) #s(literal 1 binary64) (.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) #s(literal 2 binary64)))
(fma.f64 (fma.f64 lambda1 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) lambda2)) #s(literal 1/4 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(fma.f64 (neg.f64 lambda1) #s(literal -1/2 binary64) (fma.f64 lambda2 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64))))
(fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) #s(literal 2 binary64) (.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) #s(literal 2 binary64)))
(fma.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(fma.f64 (-.f64 lambda2 lambda1) #s(literal -1 binary64) (*.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)))
(fma.f64 (-.f64 lambda2 lambda1) #s(literal -1 binary64) #s(literal 0 binary64))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 0 binary64))
(fma.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (fma.f64 lambda2 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(fma.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(fma.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2) (*.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)))
(fma.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2) #s(literal 0 binary64))
(fma.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(fma.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) #s(literal 2 binary64) (.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) #s(literal 2 binary64) #s(literal 0 binary64))
(fma.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(fma.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64) (*.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)))
(fma.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64) #s(literal 0 binary64))
(fma.f64 lambda1 #s(literal 1/2 binary64) (fma.f64 lambda2 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(fma.f64 lambda1 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64))))
(fma.f64 lambda1 #s(literal 1 binary64) (.f64 (.f64 lambda2 #s(literal -1/2 binary64)) #s(literal 2 binary64)))
(fma.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) lambda1) (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64))))
(fma.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) lambda1) (.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) #s(literal 2 binary64)))
(fma.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) (.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)))
(fma.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) #s(literal 0 binary64))
(-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal 1/2 binary64) lambda2))
(-.f64 (neg.f64 lambda2) (neg.f64 lambda1))
(-.f64 (.f64 #s(literal 1/2 binary64) lambda1) (-.f64 (.f64 #s(literal 1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64)))
(-.f64 lambda1 lambda2)
(+.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 #s(literal -1/2 binary64)))
(+.f64 (neg.f64 (neg.f64 lambda1)) (neg.f64 lambda2))
(+.f64 (.f64 lambda1 #s(literal 1 binary64)) (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64))))
(+.f64 (.f64 lambda1 #s(literal 1 binary64)) (.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) #s(literal 2 binary64)))
(+.f64 (neg.f64 lambda2) (neg.f64 (neg.f64 lambda1)))
(+.f64 (neg.f64 lambda2) lambda1)
(+.f64 (.f64 #s(literal 1/2 binary64) lambda1) (fma.f64 lambda2 #s(literal -1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(+.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)))
(+.f64 (-.f64 lambda1 lambda2) #s(literal 0 binary64))
(+.f64 lambda1 (neg.f64 lambda2))
lambda1
lambda2
(.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(.f64 (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))
(sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fabs.f64 (neg.f64 (neg.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(fabs.f64 (neg.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(fabs.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(exp.f64 (.f64 (log.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1 binary64))) #s(literal 1 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(.f64 (neg.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (neg.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))) #s(literal 1 binary64))
(.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(pow.f64 (.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(/.f64 (fma.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 2 binary64) #s(literal 2 binary64)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 (.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (.f64 #s(literal 1 binary64) #s(literal 1 binary64))) (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(/.f64 (-.f64 (.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (+.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64))) (fma.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))))
(/.f64 (-.f64 (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(/.f64 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (-.f64 (.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (.f64 #s(literal 1 binary64) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (fma.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (fma.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(neg.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fma.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fabs.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))))) (fabs.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2))) (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (neg.f64 (cos.f64 phi2)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (+.f64 #s(literal 1 binary64) (fabs.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1 binary64) (fabs.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (+.f64 #s(literal 1 binary64) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1 binary64) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (+.f64 #s(literal 1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (fabs.f64 (cos.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fabs.f64 (cos.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (neg.f64 (cos.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (neg.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))))) (fabs.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))
(fma.f64 (neg.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (neg.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 0 binary64))
(fma.f64 (cos.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 0 binary64))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi2) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi2) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi1) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))
(sqrt.f64 (.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal -1 binary64))
(-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (neg.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fabs.f64 (.f64 (neg.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(fabs.f64 (.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (neg.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(fabs.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(+.f64 (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(+.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(+.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(+.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 0 binary64))
(+.f64 #s(literal 1 binary64) (+.f64 #s(literal 0 binary64) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))
(+.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))
#s(literal 1 binary64)

eval284.0ms (0.6%)

Memory: -15.6MiB live, 653.5MiB allocated; 87ms collecting garbage
Compiler: Compiled 44 634 to 11 814 computations (73.5% saved)

prune250.0ms (0.6%)

Memory

-12.2MiB live, 473.6MiB allocated; 76ms collecting garbage

Pruning

85 alts after pruning (85 fresh and 0 done)

	Pruned	Kept	Total
New	1 057	85	1 142
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	1 058	85	1 143

Accuracy

95.8%

Counts

1 143 → 85

Alt Table

Click to see full alt table

Status	Accuracy	Program
	52.7%	(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
	52.0%	(.f64 R (/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))))
	52.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	52.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	52.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
	53.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
	57.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
	52.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
	52.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	52.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
	78.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	71.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	78.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
▶	78.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	78.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	42.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))))
	42.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
	40.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64))))))))
	41.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64))))))))
	29.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64))))))))
	58.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))))))))
	57.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	43.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	42.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
▶	50.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	50.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	76.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
	70.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))))))
	76.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))
	76.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))
	25.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64))))))))))
	59.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
	59.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
▶	59.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	59.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))))))
	59.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	59.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	52.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))))))
	60.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fabs.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
	41.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	42.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	40.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	48.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	48.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	47.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	46.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	45.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
	56.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
	49.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))))))
	51.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
	38.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))
	36.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))))))
▶	36.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
	50.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	41.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	50.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	50.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	50.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	42.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
	55.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	50.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	42.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	42.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	39.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	59.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	55.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 (pow.f64 #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))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (-.f64 (pow.f64 #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))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	55.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	59.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	55.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	78.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	40.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
	53.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
	45.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
▶	45.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	46.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	43.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	38.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
	52.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	42.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	41.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	43.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	45.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	44.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	46.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	43.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))

Compiler

Compiled 11 928 to 6 410 computations (46.3% saved)

series686.0ms (1.5%)

Memory

58.6MiB live, 1 083.0MiB allocated; 207ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	3307	50066

Stop Event

1×	iter-limit

Counts

97 → 673

Calls

Call 1

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

Outputs
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx R R)
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/48 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal -1/48 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
#s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal -1/2 binary64) lambda2))
#s(approx (/ (- lambda1 lambda2) 2) (fma.f64 #s(literal -1/2 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) lambda1)))
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))
#s(approx lambda1 lambda1)
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (fma.f64 lambda1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))) (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))) (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))))))))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (fma.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda1 (cos.f64 lambda2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))) #s(literal 1/2 binary64)))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (cos.f64 lambda2) (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (sin.f64 lambda2)))))))) #s(literal 1/2 binary64)))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (sin.f64 lambda2)))))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda1 (cos.f64 lambda2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (cos.f64 lambda2) (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (sin.f64 lambda2)))))))))
#s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda2))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2))))))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (sin.f64 lambda2))))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2))))))
#s(approx (- lambda2 lambda1) lambda2)
#s(approx (- lambda2 lambda1) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal -1/48 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))
#s(approx (* lambda1 (cos (* -1/2 lambda2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
#s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))
#s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))
#s(approx (cos (- lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1)))
#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 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) lambda1))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (/ (- lambda1 lambda2) 2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 1/2 binary64)))))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 1/2 binary64))))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 1/2 binary64)))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 1/2 binary64)))))))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 1/2 binary64)))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (cos (- lambda2 lambda1)) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))
#s(approx (- lambda2 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 lambda2 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 #s(literal 1/48 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal 1/48 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))
#s(approx (- lambda1 lambda2) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 lambda2 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda1)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)))))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)))))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda1)) (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda1)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda1)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)))))))))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1)))) (.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1)))) (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (neg.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1)))) #s(literal 1/2 binary64)))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda1)) (.f64 #s(literal -1/4 binary64) (*.f64 lambda2 (cos.f64 (neg.f64 lambda1))))))) #s(literal 1/2 binary64)))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 lambda1)) (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (sin.f64 (neg.f64 lambda1))))))))) #s(literal 1/2 binary64)))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (neg.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1)))))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda1)) (.f64 #s(literal -1/4 binary64) (*.f64 lambda2 (cos.f64 (neg.f64 lambda1))))))))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 lambda1)) (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (sin.f64 (neg.f64 lambda1))))))))))
#s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1)))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 (neg.f64 lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (neg.f64 lambda1))))))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 (neg.f64 lambda1)) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 (neg.f64 lambda1)))) (sin.f64 (neg.f64 lambda1))))))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 (neg.f64 lambda1)) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (sin.f64 (neg.f64 lambda1)))))) (sin.f64 (neg.f64 lambda1))))))
#s(approx (- lambda2 lambda1) (-.f64 lambda2 lambda1))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))) (.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 lambda2 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal 1/48 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (fma.f64 #s(literal 1/2 binary64) lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/16 binary64) (*.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
#s(approx (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (fma.f64 #s(literal 1/2 binary64) lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/16 binary64) lambda1 (*.f64 #s(literal 1/48 binary64) lambda2))) #s(literal 1/2 binary64)))))
#s(approx (sin (* -1/2 lambda2)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sin (* -1/2 lambda2)) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/48 binary64) (*.f64 #s(literal -1/3840 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
#s(approx (sin (* -1/2 lambda2)) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/48 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/645120 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/3840 binary64))))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))) (fma.f64 #s(literal -1/16 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) lambda1)))
#s(approx (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))) (fma.f64 #s(literal 1/2 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) lambda1 (.f64 #s(literal 1/768 binary64) (*.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))))
#s(approx (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))) (fma.f64 #s(literal 1/2 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/92160 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))) (.f64 #s(literal 1/768 binary64) lambda1)))))))
#s(approx (* lambda1 (cos (* -1/2 lambda2))) (+.f64 lambda1 (.f64 #s(literal -1/8 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (* lambda1 (cos (* -1/2 lambda2))) (+.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) lambda1 (.f64 #s(literal 1/384 binary64) (*.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))))
#s(approx (* lambda1 (cos (* -1/2 lambda2))) (+.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))) (.f64 #s(literal 1/384 binary64) lambda1)))))))
#s(approx (cos (* -1/2 lambda2)) #s(literal 1 binary64))
#s(approx (cos (* -1/2 lambda2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (cos (* -1/2 lambda2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/384 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/8 binary64)))))
#s(approx (cos (* -1/2 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/384 binary64) (*.f64 #s(literal -1/46080 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/8 binary64)))))
#s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
#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 (cos (* -1/2 lambda2)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (/ (- lambda1 lambda2) 2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) #s(literal 1/2 binary64)))))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))) #s(literal 1/2 binary64))))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) #s(literal 1/2 binary64)))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) #s(literal 1/2 binary64)))))))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) #s(literal 1/2 binary64)))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.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 (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi1 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))
#s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi1 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (.f64 #s(literal -1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))
#s(approx (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))
#s(approx (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (-.f64 (.f64 phi1 (fma.f64 #s(literal 1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))
#s(approx (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (-.f64 (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (-.f64 (.f64 #s(literal -1/48 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
#s(approx (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))
#s(approx (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (.f64 phi1 (fma.f64 #s(literal -1/48 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
#s(approx (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/3840 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))))
#s(approx (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/645120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/3840 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))))))
#s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1))
#s(approx (sin (* 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (sin (* 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/3840 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/48 binary64))))))
#s(approx (sin (* 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/3840 binary64) (.f64 #s(literal -1/645120 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/48 binary64))))))
#s(approx phi1 phi1)
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal 1/384 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))))
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/384 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))))
#s(approx (cos (* 1/2 phi1)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (cos (* 1/2 phi1)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/384 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/8 binary64)))))
#s(approx (cos (* 1/2 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/384 binary64) (*.f64 #s(literal -1/46080 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/8 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.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)) (fma.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)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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) (+.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 (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) #s(literal 1/48 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/1440 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) #s(literal 1/48 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 phi1)) 2) (*.f64 #s(literal 1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/1440 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/48 binary64))))))
#s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/1440 binary64) (.f64 #s(literal -1/80640 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/48 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
#s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))
#s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))))
#s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal -1/48 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))))))
#s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))
#s(approx (/ (- phi1 phi2) 2) (fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) phi1)))
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (- phi1 phi2) (-.f64 phi1 phi2))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 phi1 (sin.f64 phi2)) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) (.f64 phi1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 phi2) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi2))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) (.f64 phi1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 phi2) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/12 binary64) (sin.f64 phi2)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi2))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi2))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi2))))) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi2) (.f64 #s(literal -1/12 binary64) (.f64 phi1 (sin.f64 phi2))))))) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2))))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2)))))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi2) (.f64 #s(literal -1/12 binary64) (.f64 phi1 (sin.f64 phi2))))))))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))
#s(approx (* (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2))))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi2) (.f64 #s(literal -1/12 binary64) (.f64 phi1 (sin.f64 phi2)))))))))
#s(approx (cos (- phi2 phi1)) (+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2))))
#s(approx (cos (- phi2 phi1)) (+.f64 (cos.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 phi2))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))))))
#s(approx (cos (- phi2 phi1)) (+.f64 (cos.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2))))) (*.f64 #s(literal -1 binary64) (sin.f64 phi2))))))
#s(approx (- phi2 phi1) phi2)
#s(approx (- phi2 phi1) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))
#s(approx (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
#s(approx (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
#s(approx (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))
#s(approx (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
#s(approx (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
#s(approx (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
#s(approx (sin (* 1/2 phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
#s(approx (cos (* 1/2 phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
#s(approx (* (cos phi1) (cos phi2)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (pow (sin (* 1/2 phi1)) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
#s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
#s(approx (/ (- phi1 phi2) 2) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 phi2 phi1)))))
#s(approx (- phi1 phi2) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 phi2 phi1)))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))
#s(approx (cos (- phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))
#s(approx (- phi2 phi1) (*.f64 #s(literal -1 binary64) phi1))
#s(approx (- phi2 phi1) (*.f64 phi1 (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64))))
#s(approx (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))
#s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))
#s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
#s(approx (- phi1 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))
#s(approx (cos (- phi2 phi1)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))
#s(approx (- phi2 phi1) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
#s(approx (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (-.f64 (.f64 #s(literal -1/8 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
#s(approx (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal 1/48 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
#s(approx (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
#s(approx (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal 1/384 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))
#s(approx (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/384 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))))
#s(approx (cos (* phi2 -1/2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (cos (* phi2 -1/2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/384 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/8 binary64)))))
#s(approx (cos (* phi2 -1/2)) (+.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/384 binary64) (*.f64 #s(literal -1/46080 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/8 binary64)))))
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (.f64 phi2 (fma.f64 #s(literal -1/48 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal 1/3840 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/645120 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/3840 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))))
#s(approx (sin (* 1/2 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))
#s(approx (sin (* 1/2 phi2)) (.f64 phi2 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (sin (* 1/2 phi2)) (.f64 phi2 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/3840 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/48 binary64))))))
#s(approx (sin (* 1/2 phi2)) (.f64 phi2 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/3840 binary64) (.f64 #s(literal -1/645120 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/48 binary64))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.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)) (fma.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)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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) (+.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 (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal -1/8 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))
#s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal 1/48 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))))
#s(approx (- phi1 phi2) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 phi2 (sin.f64 (neg.f64 phi1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (neg.f64 phi1)) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi1)))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (neg.f64 phi1)) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (.f64 #s(literal 1/12 binary64) (sin.f64 (neg.f64 phi1))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi1)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi1)))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi1)))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (neg.f64 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi1)))))) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi1)) (.f64 #s(literal 1/12 binary64) (.f64 phi2 (sin.f64 (neg.f64 phi1)))))))) (.f64 (cos.f64 phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (neg.f64 phi1))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1))))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi1)) (.f64 #s(literal -1/4 binary64) (*.f64 phi2 (cos.f64 (neg.f64 phi1)))))))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi1)) (.f64 #s(literal 1/12 binary64) (.f64 phi2 (sin.f64 (neg.f64 phi1)))))))))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (neg.f64 phi1))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi1)) (.f64 #s(literal -1/4 binary64) (*.f64 phi2 (cos.f64 (neg.f64 phi1))))))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi1)) (.f64 #s(literal 1/12 binary64) (.f64 phi2 (sin.f64 (neg.f64 phi1))))))))))
#s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1)))
#s(approx (cos (- phi2 phi1)) (+.f64 (cos.f64 (neg.f64 phi1)) (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 (neg.f64 phi1))))))
#s(approx (cos (- phi2 phi1)) (+.f64 (cos.f64 (neg.f64 phi1)) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 (cos.f64 (neg.f64 phi1)))) (sin.f64 (neg.f64 phi1))))))
#s(approx (cos (- phi2 phi1)) (+.f64 (cos.f64 (neg.f64 phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (sin.f64 (neg.f64 phi1)))))) (sin.f64 (neg.f64 phi1))))))
#s(approx (- phi2 phi1) (-.f64 phi2 phi1))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))))))))))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))
#s(approx (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))
#s(approx (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))
#s(approx (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))
#s(approx (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.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))))))
#s(approx (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.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 phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (.f64 (cos.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))))))
#s(approx (sin (+ (* 1/2 (PI)) (neg phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ (* 1/2 (PI)) (neg phi2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (+ (* 1/2 (PI)) (neg phi2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (sin (+ (* 1/2 (PI)) (neg phi2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ (* 1/2 (PI)) (neg phi2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ (* 1/2 (PI)) (neg phi2)) (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (cos (* phi2 -1/2)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
#s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))
#s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64))))
#s(approx (- phi2 phi1) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 phi1 phi2)))))
#s(approx (+ (* 1/2 (PI)) (neg phi2)) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)) #s(literal 1 binary64))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))
#s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2))))))
#s(approx (- phi1 phi2) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2))))))
#s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))
#s(approx (- phi2 phi1) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ (* 1/2 (PI)) (neg phi2))) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (* 1/2 (PI)) (neg phi2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi2))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))

Calls

15 calls:

Time	Variable		Point	Expression
81.0ms	phi2	@	-inf	((* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (cos (* phi2 -1/2)) (* phi2 -1/2) phi2 -1/2 (sin (* 1/2 phi1)) (* 1/2 phi1) 1/2 phi1 (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin (* 1/2 phi2)) (* 1/2 phi2) (cos (* 1/2 phi1)) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (sin (/ (- lambda1 lambda2) 2)) (/ (- lambda1 lambda2) 2) (- lambda1 lambda2) lambda1 lambda2 (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) 1 (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (* 1/2 (- lambda1 lambda2))) (* 1/2 (- lambda1 lambda2)) (pow (sin (* 1/2 phi1)) 2) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (- phi1 phi2) 2)) 2) (sin (/ (- phi1 phi2) 2)) (/ (- phi1 phi2) 2) (- phi1 phi2) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos (- lambda2 lambda1)) 1/2) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (cos phi2) (cos phi1)) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (* (cos (- phi2 phi1)) 1/2) (cos (- phi2 phi1)) (- phi2 phi1) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (+ (* 1/2 (PI)) (neg phi2))) (+ (* 1/2 (PI)) (neg phi2)) (PI) (neg phi2) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)) (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (sin (* -1/2 lambda2)) (* -1/2 lambda2) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))) (* lambda1 (cos (* -1/2 lambda2))) (cos (* -1/2 lambda2)) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))
42.0ms	lambda1	@	inf	((* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (cos (* phi2 -1/2)) (* phi2 -1/2) phi2 -1/2 (sin (* 1/2 phi1)) (* 1/2 phi1) 1/2 phi1 (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin (* 1/2 phi2)) (* 1/2 phi2) (cos (* 1/2 phi1)) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (sin (/ (- lambda1 lambda2) 2)) (/ (- lambda1 lambda2) 2) (- lambda1 lambda2) lambda1 lambda2 (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) 1 (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (* 1/2 (- lambda1 lambda2))) (* 1/2 (- lambda1 lambda2)) (pow (sin (* 1/2 phi1)) 2) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (- phi1 phi2) 2)) 2) (sin (/ (- phi1 phi2) 2)) (/ (- phi1 phi2) 2) (- phi1 phi2) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos (- lambda2 lambda1)) 1/2) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (cos phi2) (cos phi1)) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (* (cos (- phi2 phi1)) 1/2) (cos (- phi2 phi1)) (- phi2 phi1) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (+ (* 1/2 (PI)) (neg phi2))) (+ (* 1/2 (PI)) (neg phi2)) (PI) (neg phi2) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)) (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (sin (* -1/2 lambda2)) (* -1/2 lambda2) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))) (* lambda1 (cos (* -1/2 lambda2))) (cos (* -1/2 lambda2)) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))
39.0ms	phi1	@	-inf	((* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (cos (* phi2 -1/2)) (* phi2 -1/2) phi2 -1/2 (sin (* 1/2 phi1)) (* 1/2 phi1) 1/2 phi1 (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin (* 1/2 phi2)) (* 1/2 phi2) (cos (* 1/2 phi1)) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (sin (/ (- lambda1 lambda2) 2)) (/ (- lambda1 lambda2) 2) (- lambda1 lambda2) lambda1 lambda2 (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) 1 (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (* 1/2 (- lambda1 lambda2))) (* 1/2 (- lambda1 lambda2)) (pow (sin (* 1/2 phi1)) 2) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (- phi1 phi2) 2)) 2) (sin (/ (- phi1 phi2) 2)) (/ (- phi1 phi2) 2) (- phi1 phi2) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos (- lambda2 lambda1)) 1/2) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (cos phi2) (cos phi1)) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (* (cos (- phi2 phi1)) 1/2) (cos (- phi2 phi1)) (- phi2 phi1) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (+ (* 1/2 (PI)) (neg phi2))) (+ (* 1/2 (PI)) (neg phi2)) (PI) (neg phi2) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)) (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (sin (* -1/2 lambda2)) (* -1/2 lambda2) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))) (* lambda1 (cos (* -1/2 lambda2))) (cos (* -1/2 lambda2)) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))
32.0ms	phi1	@	0	((* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (cos (* phi2 -1/2)) (* phi2 -1/2) phi2 -1/2 (sin (* 1/2 phi1)) (* 1/2 phi1) 1/2 phi1 (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin (* 1/2 phi2)) (* 1/2 phi2) (cos (* 1/2 phi1)) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (sin (/ (- lambda1 lambda2) 2)) (/ (- lambda1 lambda2) 2) (- lambda1 lambda2) lambda1 lambda2 (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) 1 (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (* 1/2 (- lambda1 lambda2))) (* 1/2 (- lambda1 lambda2)) (pow (sin (* 1/2 phi1)) 2) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (- phi1 phi2) 2)) 2) (sin (/ (- phi1 phi2) 2)) (/ (- phi1 phi2) 2) (- phi1 phi2) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos (- lambda2 lambda1)) 1/2) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (cos phi2) (cos phi1)) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (* (cos (- phi2 phi1)) 1/2) (cos (- phi2 phi1)) (- phi2 phi1) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (+ (* 1/2 (PI)) (neg phi2))) (+ (* 1/2 (PI)) (neg phi2)) (PI) (neg phi2) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)) (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (sin (* -1/2 lambda2)) (* -1/2 lambda2) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))) (* lambda1 (cos (* -1/2 lambda2))) (cos (* -1/2 lambda2)) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))
30.0ms	phi2	@	inf	((* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (cos (* phi2 -1/2)) (* phi2 -1/2) phi2 -1/2 (sin (* 1/2 phi1)) (* 1/2 phi1) 1/2 phi1 (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin (* 1/2 phi2)) (* 1/2 phi2) (cos (* 1/2 phi1)) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (sin (/ (- lambda1 lambda2) 2)) (/ (- lambda1 lambda2) 2) (- lambda1 lambda2) lambda1 lambda2 (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) 1 (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (* 1/2 (- lambda1 lambda2))) (* 1/2 (- lambda1 lambda2)) (pow (sin (* 1/2 phi1)) 2) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (- phi1 phi2) 2)) 2) (sin (/ (- phi1 phi2) 2)) (/ (- phi1 phi2) 2) (- phi1 phi2) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos (- lambda2 lambda1)) 1/2) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (cos phi2) (cos phi1)) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (* (cos (- phi2 phi1)) 1/2) (cos (- phi2 phi1)) (- phi2 phi1) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (+ (* 1/2 (PI)) (neg phi2))) (+ (* 1/2 (PI)) (neg phi2)) (PI) (neg phi2) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)) (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (sin (* -1/2 lambda2)) (* -1/2 lambda2) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))) (* lambda1 (cos (* -1/2 lambda2))) (cos (* -1/2 lambda2)) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))

rewrite358.0ms (0.8%)

Memory

1.6MiB live, 612.2MiB allocated; 104ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	110	2575
0	200	2516
1	779	1969
2	3515	1939
0	8154	1883

Stop Event

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

Counts

97 → 1 582

Calls

Call 1

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

Outputs
(.f64 (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))) #s(literal 2 binary64))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R))
(.f64 #s(literal 2 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)))
(fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R))
(fma.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R))
R
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (-.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 1 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(-.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (neg.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 1 binary64)) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal -1/2 binary64)))
(sqrt.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 1 binary64)))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(fabs.f64 (neg.f64 (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))
(fabs.f64 (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(fabs.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))
(exp.f64 (.f64 (log.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (fma.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(neg.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))
(fma.f64 (neg.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (neg.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (neg.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (neg.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))))
(fma.f64 (neg.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (neg.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))))
(-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(.f64 (neg.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (neg.f64 (fabs.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (fabs.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))
(.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(pow.f64 (fabs.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (-.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))))))
(/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -2 binary64)))
(neg.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))))))
(fma.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(fma.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(-.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (neg.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))))
(-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(fabs.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))
(+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) phi2))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(neg.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))))
(neg.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))))
(neg.f64 (sin.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))
(neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))
(sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64)))
(sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 phi1 #s(literal 1/2 binary64))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (cos.f64 (/.f64 phi2 #s(literal -2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (/.f64 (neg.f64 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (cos.f64 (/.f64 phi1 #s(literal -2 binary64)))) (.f64 (cos.f64 (/.f64 phi2 #s(literal -2 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))))
(-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi1 #s(literal 1/2 binary64))))
(+.f64 (.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (cos.f64 (/.f64 phi2 #s(literal -2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))))
(.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(/.f64 (-.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (fma.f64 (fabs.f64 phi2) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 (fabs.f64 phi2) #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (fabs.f64 phi2) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (+.f64 (fma.f64 (fabs.f64 phi2) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (neg.f64 (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))))) (sin.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (neg.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(sin.f64 (+.f64 (neg.f64 (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (fabs.f64 phi2) #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi2)))
(fma.f64 (sin.f64 (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))) #s(literal 0 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 0 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 0 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1 binary64)))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(cos.f64 (neg.f64 (neg.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))))
(cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 (neg.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))))
(cos.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 0 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1 binary64)))
(*.f64 #s(literal -1/2 binary64) phi2)
(*.f64 phi2 #s(literal -1/2 binary64))
(neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))
phi2
#s(literal -1/2 binary64)
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(*.f64 phi1 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) phi1)
(/.f64 (*.f64 phi1 #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) phi1) #s(literal 2 binary64))
(/.f64 (neg.f64 phi1) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))
(/.f64 phi1 #s(literal 2 binary64))
#s(literal 1/2 binary64)
phi1
(.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1/2 binary64))
(.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (fabs.f64 phi1) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (fma.f64 (fabs.f64 phi1) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (fma.f64 phi1 #s(literal -1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (fma.f64 (fabs.f64 phi1) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (fma.f64 (fabs.f64 phi1) #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (neg.f64 (.f64 phi1 #s(literal -1/2 binary64))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (neg.f64 (*.f64 phi1 #s(literal -1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (neg.f64 (.f64 (fabs.f64 phi1) #s(literal 1/2 binary64))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (neg.f64 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))
(+.f64 (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))
(neg.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(sin.f64 (neg.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (PI.f64))))
(sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (PI.f64)) (PI.f64)))
(sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (PI.f64)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (PI.f64)))
(cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (PI.f64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi2)))
(*.f64 (neg.f64 phi2) #s(literal -1/2 binary64))
(*.f64 #s(literal 1/2 binary64) phi2)
(*.f64 #s(literal -1/2 binary64) (neg.f64 phi2))
(*.f64 phi2 #s(literal 1/2 binary64))
(/.f64 (*.f64 phi2 #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) phi2) #s(literal 2 binary64))
(/.f64 (neg.f64 phi2) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))
(/.f64 phi2 #s(literal 2 binary64))
(neg.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(sin.f64 (+.f64 (neg.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (neg.f64 (.f64 (fabs.f64 phi1) #s(literal 1/2 binary64))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (fabs.f64 phi1) #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 phi1 #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (.f64 (fabs.f64 phi1) #s(literal 1/2 binary64))) #s(literal 0 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 0 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 0 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(cos.f64 (neg.f64 (neg.f64 (*.f64 phi1 #s(literal -1/2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (*.f64 phi1 #s(literal -1/2 binary64))))
(cos.f64 (neg.f64 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64))))
(cos.f64 (*.f64 phi1 #s(literal -1/2 binary64)))
(cos.f64 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 (fabs.f64 phi1) #s(literal 1/2 binary64))) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 #s(literal 0 binary64) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))
(.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))
(.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(.f64 (.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(/.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(*.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (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 (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)) (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 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 phi2 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 phi2 (neg.f64 (neg.f64 phi1)))) (cos.f64 (-.f64 phi2 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 (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 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)) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 (neg.f64 phi1)) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (neg.f64 phi1)) phi2)) (cos.f64 (-.f64 (neg.f64 (neg.f64 phi1)) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (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 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)) (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)) phi2)) (cos.f64 (-.f64 (neg.f64 (fabs.f64 phi1)) 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 (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 phi1 (neg.f64 (fabs.f64 phi2)))) (cos.f64 (-.f64 phi1 (neg.f64 (fabs.f64 phi2))))) #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))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1))) (cos.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (fma.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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (fma.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 (.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 (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))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)))) #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 (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))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fma.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 (.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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (fma.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 (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))) (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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (fma.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) (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 (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 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))) (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))) 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 (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 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))) (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))) 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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.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 (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 phi2 (fabs.f64 phi1))) (cos.f64 (-.f64 phi2 (fabs.f64 phi1)))) #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) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.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) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.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) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1))) (cos.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fma.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)) phi2) (neg.f64 phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fabs.f64 phi2))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 phi2))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (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)))))
(fma.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (*.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))) (cos.f64 phi1)))
(fma.f64 (cos.f64 phi1) (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (.f64 (cos.f64 phi1) (*.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2)))))
(+.f64 (.f64 (cos.f64 phi1) (.f64 #s(literal 1 binary64) (cos.f64 phi2))) (.f64 (cos.f64 phi1) (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2)))))
(+.f64 (.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))) (cos.f64 phi1)))
(+.f64 (/.f64 (cos.f64 (+.f64 phi1 phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/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 (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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1))
(fma.f64 (sin.f64 (fabs.f64 phi1)) #s(literal 0 binary64) (*.f64 (cos.f64 phi1) #s(literal 1 binary64)))
(fma.f64 (neg.f64 (sin.f64 phi1)) #s(literal 0 binary64) (*.f64 (cos.f64 phi1) #s(literal 1 binary64)))
(fma.f64 (sin.f64 phi1) #s(literal 0 binary64) (*.f64 (cos.f64 phi1) #s(literal 1 binary64)))
(fma.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) (sin.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(cos.f64 (neg.f64 (neg.f64 (neg.f64 phi1))))
(cos.f64 (neg.f64 (neg.f64 (fabs.f64 phi1))))
(cos.f64 (neg.f64 (neg.f64 phi1)))
(cos.f64 (neg.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)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))) (.f64 #s(literal 1 binary64) (cos.f64 phi2)))) (.f64 #s(literal 1 binary64) (cos.f64 phi2)))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (.f64 #s(literal 1 binary64) (cos.f64 phi2))) (.f64 (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))) (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))))) (cos.f64 phi2))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (-.f64 (.f64 (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))) (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2)))) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2)))))))
(neg.f64 (sin.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (fma.f64 (PI.f64) #s(literal 1/2 binary64) 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 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi2)))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))
(sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))
(fma.f64 (sin.f64 (fabs.f64 phi2)) #s(literal 0 binary64) (*.f64 #s(literal 1 binary64) (cos.f64 phi2)))
(fma.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2)) (*.f64 #s(literal 1 binary64) (cos.f64 phi2)))
(fma.f64 (neg.f64 (sin.f64 phi2)) #s(literal 0 binary64) (*.f64 #s(literal 1 binary64) (cos.f64 phi2)))
(fma.f64 (sin.f64 phi2) #s(literal 0 binary64) (*.f64 #s(literal 1 binary64) (cos.f64 phi2)))
(fma.f64 #s(literal 1 binary64) (cos.f64 phi2) (*.f64 #s(literal 0 binary64) (sin.f64 phi2)))
(fma.f64 #s(literal 1 binary64) (cos.f64 phi2) (*.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))))
(fma.f64 (cos.f64 phi2) #s(literal 1 binary64) (*.f64 #s(literal 0 binary64) (sin.f64 phi2)))
(fma.f64 (cos.f64 phi2) #s(literal 1 binary64) (*.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))))
(-.f64 (.f64 (neg.f64 (sin.f64 phi2)) (cos.f64 (.f64 (neg.f64 (PI.f64)) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 (neg.f64 (PI.f64)) #s(literal 1/2 binary64)))))
(-.f64 (.f64 (neg.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 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(-.f64 (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(-.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (neg.f64 (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2)))))
(-.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (.f64 #s(literal 0 binary64) (sin.f64 phi2)))
(-.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))))
(cos.f64 (neg.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))))
(cos.f64 (neg.f64 (neg.f64 (fabs.f64 phi2))))
(cos.f64 (fabs.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))))
(cos.f64 (neg.f64 (fabs.f64 phi2)))
(cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)))
(cos.f64 (fabs.f64 phi2))
(cos.f64 (neg.f64 phi2))
(cos.f64 phi2)
(+.f64 (.f64 (sin.f64 (fabs.f64 phi2)) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (cos.f64 phi2)))
(+.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (cos.f64 phi2)))
(+.f64 (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))) (.f64 #s(literal 1 binary64) (cos.f64 phi2)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (.f64 #s(literal 0 binary64) (sin.f64 phi2)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))))
(neg.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))))
(neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))
(neg.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))
(neg.f64 (sin.f64 (/.f64 (-.f64 lambda2 lambda1) #s(literal 2 binary64))))
(neg.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (neg.f64 lambda2) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64))) (.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (/.f64 lambda1 #s(literal -2 binary64)))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (/.f64 lambda1 #s(literal -2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 lambda1 #s(literal 1/2 binary64)))
(*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(/.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) lambda2) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))) (fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 lambda2 #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)) (fma.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 lambda1 #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) lambda2)) #s(literal 4 binary64))
(/.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (-.f64 lambda2 lambda1)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(neg.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64)))
(neg.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(neg.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(neg.f64 (/.f64 (-.f64 lambda2 lambda1) #s(literal 2 binary64)))
(neg.f64 (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64))))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 lambda2 #s(literal -1/2 binary64)))
(-.f64 (/.f64 lambda2 #s(literal -2 binary64)) (/.f64 lambda1 #s(literal -2 binary64)))
(-.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))
(+.f64 (/.f64 lambda2 #s(literal -2 binary64)) (*.f64 lambda1 #s(literal 1/2 binary64)))
(+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))
(+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))
(+.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal -1/2 binary64)))
(*.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))) (fma.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))) (fma.f64 lambda1 lambda1 (fma.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) (neg.f64 (neg.f64 lambda1)))
(+.f64 (neg.f64 lambda2) lambda1)
(+.f64 lambda1 (neg.f64 lambda2))
lambda1
lambda2
(.f64 (sqrt.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal -1/2 binary64)))
(sqrt.f64 (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1 binary64)))
(sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fabs.f64 (neg.f64 (neg.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(fabs.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(exp.f64 (.f64 (log.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1 binary64))) #s(literal 1 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 1 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) (-.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (-.f64 (.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))
(neg.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (neg.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))
(fma.f64 (neg.f64 (cos.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))))
(fma.f64 (cos.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))))
(-.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))))
(+.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))
#s(literal 1 binary64)
(.f64 (.f64 R (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))) #s(literal 2 binary64))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 #s(literal 2 binary64) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) R))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)))
(fma.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) R (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) R))
(fma.f64 R (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (.f64 R (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(+.f64 (.f64 R (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))) (.f64 R (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) R) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) R))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))))) (-.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))))
(fma.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 1 binary64) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(-.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (neg.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 1 binary64)) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(+.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))))
(atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))
(.f64 (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))
(.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64)))
(sqrt.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal 1 binary64)))
(sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))
(fabs.f64 (neg.f64 (neg.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))))
(fabs.f64 (neg.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))
(fabs.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))
(exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64)))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))) (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)) (fma.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))))))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))
(neg.f64 (-.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))
(fma.f64 (neg.f64 (fabs.f64 (sin.f64 (.f64 phi1 #s(literal -1/2 binary64))))) (neg.f64 (fabs.f64 (sin.f64 (.f64 phi1 #s(literal -1/2 binary64))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))
(fma.f64 (neg.f64 (sin.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (neg.f64 (sin.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))
(fma.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))
(fma.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (fabs.f64 (sin.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))
(fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))
(fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))
(-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64))))))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) (cos.f64 phi1)))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (neg.f64 (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))
(+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)) (neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))))))
(+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))
(.f64 (neg.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (neg.f64 (fabs.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))
(.f64 (neg.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (neg.f64 (neg.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))
(.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(pow.f64 (fabs.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(pow.f64 (neg.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -1 binary64)))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64)))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))
(fabs.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(neg.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))))
(neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))
(neg.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))
(neg.f64 (sin.f64 (/.f64 (-.f64 lambda2 lambda1) #s(literal 2 binary64))))
(neg.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (neg.f64 lambda2) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64))) (.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (/.f64 lambda1 #s(literal -2 binary64)))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (/.f64 lambda1 #s(literal -2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 lambda1 #s(literal 1/2 binary64)))
(*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(/.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) lambda2) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))) (fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 lambda2 #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)) (fma.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 lambda1 #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) lambda2)) #s(literal 4 binary64))
(/.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (-.f64 lambda2 lambda1)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(neg.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64)))
(neg.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(neg.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(neg.f64 (/.f64 (-.f64 lambda2 lambda1) #s(literal 2 binary64)))
(neg.f64 (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64))))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 lambda2 #s(literal -1/2 binary64)))
(-.f64 (/.f64 lambda2 #s(literal -2 binary64)) (/.f64 lambda1 #s(literal -2 binary64)))
(-.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))
(+.f64 (/.f64 lambda2 #s(literal -2 binary64)) (*.f64 lambda1 #s(literal 1/2 binary64)))
(+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))
(+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))
(+.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal -1/2 binary64)))
(.f64 (neg.f64 (fabs.f64 (sin.f64 (.f64 phi1 #s(literal -1/2 binary64))))) (neg.f64 (fabs.f64 (sin.f64 (*.f64 phi1 #s(literal -1/2 binary64))))))
(.f64 (neg.f64 (sin.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (neg.f64 (sin.f64 (*.f64 phi1 #s(literal -1/2 binary64)))))
(.f64 (fabs.f64 (sin.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (fabs.f64 (sin.f64 (*.f64 phi1 #s(literal -1/2 binary64)))))
(.f64 (sin.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal -1/2 binary64))))
(.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(pow.f64 (fabs.f64 (sin.f64 (*.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))
(pow.f64 (sin.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64))
(pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64)))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64))))))
(fabs.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))))
(.f64 (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64)))
(sqrt.f64 (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1 binary64)))
(sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))
(fabs.f64 (neg.f64 (neg.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))))
(fabs.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))
(exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1 binary64))) #s(literal 1 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal 1 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (-.f64 #s(literal 1 binary64) (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (-.f64 (.f64 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (.f64 #s(literal 1 binary64) (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (fma.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) (.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))))
(neg.f64 (-.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal 1 binary64)))
(-.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))
(-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))
(+.f64 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))
(.f64 (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (.f64 #s(literal 2 binary64) R))
(.f64 #s(literal 2 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) R))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) R (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) R))
(fma.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(+.f64 (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) R) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) R))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (-.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))))
(fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 1 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(-.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (neg.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(+.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal -1/2 binary64)))
(sqrt.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 1 binary64)))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(fabs.f64 (neg.f64 (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))
(fabs.f64 (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(fabs.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))
(exp.f64 (.f64 (log.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (fma.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(neg.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))
(fma.f64 (neg.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (neg.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (neg.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (neg.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))))
(fma.f64 (neg.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (neg.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))))
(-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(.f64 (neg.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (neg.f64 (fabs.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (fabs.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))
(.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(pow.f64 (fabs.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (-.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))))))
(/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -2 binary64)))
(neg.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))))))
(fma.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(fma.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(-.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (neg.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))))
(-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(fabs.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))
(+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) phi2))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(neg.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))))
(neg.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))))
(neg.f64 (sin.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))))
(neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))
(sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64)))
(sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 phi1 #s(literal 1/2 binary64))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (cos.f64 (/.f64 phi2 #s(literal -2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (/.f64 (neg.f64 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (cos.f64 (/.f64 phi1 #s(literal -2 binary64)))) (.f64 (cos.f64 (/.f64 phi2 #s(literal -2 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))))
(-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi1 #s(literal 1/2 binary64))))
(+.f64 (.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (cos.f64 (/.f64 phi2 #s(literal -2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 phi1 #s(literal 1/2 binary64)))
(*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))
(/.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 phi1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) phi2) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 phi1 #s(literal -1/2 binary64)) (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(/.f64 (-.f64 (pow.f64 (.f64 phi1 #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) phi2) #s(literal 3 binary64))) (fma.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi1 #s(literal 1/2 binary64)) (fma.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi2) (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) phi2)))))
(/.f64 (-.f64 (.f64 phi1 #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) phi2)) #s(literal 4 binary64))
(/.f64 (-.f64 phi2 phi1) #s(literal -2 binary64))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (-.f64 phi2 phi1)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))
(neg.f64 (*.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))
(neg.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64)))
(neg.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))
(neg.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))
(fma.f64 phi1 #s(literal 1/2 binary64) (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))
(fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi2))
(fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal -1/2 binary64) phi2))
(-.f64 (/.f64 phi2 #s(literal -2 binary64)) (/.f64 phi1 #s(literal -2 binary64)))
(-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) phi2))
(+.f64 (/.f64 phi2 #s(literal -2 binary64)) (*.f64 phi1 #s(literal 1/2 binary64)))
(+.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))
(+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) phi2))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 phi2) phi1)) phi1)
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)
(/.f64 (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (neg.f64 phi2) #s(literal 3 binary64))) (fma.f64 phi1 phi1 (-.f64 (.f64 phi2 phi2) (.f64 phi1 (neg.f64 phi2)))))
(/.f64 (-.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)) (+.f64 phi1 phi2))
(/.f64 (-.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) (fma.f64 phi1 phi1 (fma.f64 phi2 phi2 (*.f64 phi1 phi2))))
(neg.f64 (-.f64 phi2 phi1))
(-.f64 phi1 phi2)
(+.f64 (neg.f64 phi2) (neg.f64 (neg.f64 phi1)))
(+.f64 (neg.f64 phi2) phi1)
(+.f64 phi1 (neg.f64 phi2))
(.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (sqrt.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)))
(sqrt.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(fabs.f64 (neg.f64 (neg.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(fabs.f64 (neg.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(fabs.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)))) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(/.f64 (-.f64 (.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #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 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 (.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)))) (+.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #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))) (fma.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #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 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (-.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(neg.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)))
(fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi1) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)))
(-.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)))
(-.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi2))) (cos.f64 phi1)))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(+.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)))
(+.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 #s(literal -1/2 binary64) #s(literal -1/2 binary64))) (-.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 #s(literal -1/2 binary64) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (-.f64 (.f64 #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))
(neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64))
(-.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))
(+.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))
(/.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64))
(fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 1/2 binary64) (.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 1/2 binary64)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (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)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (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 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(sin.f64 (+.f64 (neg.f64 (fabs.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 (-.f64 lambda1 lambda2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(fma.f64 (sin.f64 (fabs.f64 (-.f64 lambda2 lambda1))) #s(literal 0 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (-.f64 lambda2 lambda1)) #s(literal 0 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)))
(fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda2) (sin.f64 (neg.f64 (neg.f64 lambda1)))))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 (neg.f64 (neg.f64 lambda2)))))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 (neg.f64 (neg.f64 lambda1)))))
(fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 (neg.f64 (neg.f64 lambda2)))))
(fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(fma.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda2 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)) #s(literal 0 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 (neg.f64 (neg.f64 lambda2)))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 (neg.f64 (neg.f64 lambda1)))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (neg.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (neg.f64 (sin.f64 lambda1))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2))))
(cos.f64 (neg.f64 (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))
(cos.f64 (neg.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 (fabs.f64 (-.f64 lambda2 lambda1))) #s(literal 0 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)))
(+.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) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda2 lambda1))))
(+.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 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 (neg.f64 (neg.f64 lambda1)))))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 (neg.f64 (neg.f64 lambda2)))))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(*.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))) (fma.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))) (fma.f64 lambda2 lambda2 (fma.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))
(*.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (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 (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)) (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 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 phi2 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 phi2 (neg.f64 (neg.f64 phi1)))) (cos.f64 (-.f64 phi2 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 (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 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)) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 (neg.f64 phi1)) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (neg.f64 phi1)) phi2)) (cos.f64 (-.f64 (neg.f64 (neg.f64 phi1)) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (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 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)) (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)) phi2)) (cos.f64 (-.f64 (neg.f64 (fabs.f64 phi1)) 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 (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 phi1 (neg.f64 (fabs.f64 phi2)))) (cos.f64 (-.f64 phi1 (neg.f64 (fabs.f64 phi2))))) #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))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1))) (cos.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (fma.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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (fma.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 (.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 (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))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)))) #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 (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))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fma.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 (.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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (fma.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 (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))) (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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (fma.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) (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 (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 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))) (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))) 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 (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 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))) (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))) 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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.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 (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 phi2 (fabs.f64 phi1))) (cos.f64 (-.f64 phi2 (fabs.f64 phi1)))) #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) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.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) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.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) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1))) (cos.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fma.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)) phi2) (neg.f64 phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fabs.f64 phi2))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 phi2))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (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)))))
(fma.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (*.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))) (cos.f64 phi1)))
(fma.f64 (cos.f64 phi1) (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (.f64 (cos.f64 phi1) (*.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2)))))
(+.f64 (.f64 (cos.f64 phi1) (.f64 #s(literal 1 binary64) (cos.f64 phi2))) (.f64 (cos.f64 phi1) (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2)))))
(+.f64 (.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))) (cos.f64 phi1)))
(+.f64 (/.f64 (cos.f64 (+.f64 phi1 phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(*.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1 binary64)))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1 binary64)) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 2 binary64) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (-.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 #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64))) (fma.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 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 #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))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1 binary64)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 #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))) (fma.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(neg.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))
(-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))
(-.f64 #s(literal 1/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)) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 (neg.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1)))) #s(literal 1/2 binary64)))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))
(/.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 2 binary64))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (cos.f64 (+.f64 phi1 phi2)))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(sin.f64 (+.f64 (neg.f64 (fabs.f64 (-.f64 phi2 phi1))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 (-.f64 phi2 phi1)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) phi1))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))
(fma.f64 (sin.f64 (fabs.f64 (-.f64 phi2 phi1))) #s(literal 0 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (-.f64 phi1 phi2)) #s(literal 0 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (-.f64 phi2 phi1)) #s(literal 0 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi2) (sin.f64 (neg.f64 (neg.f64 phi1)))))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1)) (*.f64 #s(literal 0 binary64) (sin.f64 (-.f64 phi2 phi1))))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 (neg.f64 (neg.f64 phi1)))))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 (neg.f64 (neg.f64 phi1)))))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(-.f64 (.f64 (sin.f64 phi2) (cos.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))))
(-.f64 (.f64 (sin.f64 (-.f64 phi2 phi1)) #s(literal 0 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(-.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 (neg.f64 (neg.f64 phi1)))))
(-.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (neg.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(-.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(cos.f64 (neg.f64 (neg.f64 (fabs.f64 (-.f64 phi2 phi1)))))
(cos.f64 (neg.f64 (fabs.f64 (-.f64 phi2 phi1))))
(cos.f64 (fabs.f64 (-.f64 phi2 phi1)))
(cos.f64 (-.f64 phi2 phi1))
(cos.f64 (-.f64 phi1 phi2))
(+.f64 (.f64 (sin.f64 (fabs.f64 (-.f64 phi2 phi1))) #s(literal 0 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (-.f64 phi1 phi2)) #s(literal 0 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1))) (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 phi2 phi1))))
(+.f64 (.f64 (sin.f64 (-.f64 phi2 phi1)) #s(literal 0 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(+.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 (neg.f64 phi1)))))
(+.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 phi1) phi2)) phi2)
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) phi2)
(/.f64 (+.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 (neg.f64 phi1) #s(literal 3 binary64))) (fma.f64 phi2 phi2 (-.f64 (.f64 phi1 phi1) (.f64 phi2 (neg.f64 phi1)))))
(/.f64 (-.f64 (.f64 phi2 phi2) (.f64 phi1 phi1)) (+.f64 phi1 phi2))
(/.f64 (-.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (*.f64 phi2 phi1))))
(neg.f64 (-.f64 phi1 phi2))
(-.f64 phi2 (neg.f64 (neg.f64 phi1)))
(-.f64 phi2 phi1)
(+.f64 (neg.f64 phi1) phi2)
(+.f64 phi2 (neg.f64 phi1))
(.f64 (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))) #s(literal 2 binary64))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R))
(.f64 #s(literal 2 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)))
(fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R))
(fma.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (-.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 1 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(-.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (neg.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 1 binary64)) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal -1/2 binary64)))
(sqrt.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 1 binary64)))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(fabs.f64 (neg.f64 (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))
(fabs.f64 (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(fabs.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))
(exp.f64 (.f64 (log.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (fma.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(neg.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))
(fma.f64 (neg.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (neg.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (neg.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (neg.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))))
(fma.f64 (neg.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (neg.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))))
(-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))
(.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))
(.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(.f64 (.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(/.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(*.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (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 (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)) (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 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 phi2 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 phi2 (neg.f64 (neg.f64 phi1)))) (cos.f64 (-.f64 phi2 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 (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 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)) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 (neg.f64 phi1)) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (neg.f64 phi1)) phi2)) (cos.f64 (-.f64 (neg.f64 (neg.f64 phi1)) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (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 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)) (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)) phi2)) (cos.f64 (-.f64 (neg.f64 (fabs.f64 phi1)) 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 (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 phi1 (neg.f64 (fabs.f64 phi2)))) (cos.f64 (-.f64 phi1 (neg.f64 (fabs.f64 phi2))))) #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))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1))) (cos.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (fma.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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (fma.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 (.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 (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))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)))) #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 (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))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fma.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 (.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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (fma.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 (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))) (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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (fma.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) (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 (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 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))) (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))) 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 (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 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))) (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))) 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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.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 (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 phi2 (fabs.f64 phi1))) (cos.f64 (-.f64 phi2 (fabs.f64 phi1)))) #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) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.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) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.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) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1))) (cos.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fma.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)) phi2) (neg.f64 phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fabs.f64 phi2))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 phi2))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (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)))))
(fma.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (*.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))) (cos.f64 phi1)))
(fma.f64 (cos.f64 phi1) (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (.f64 (cos.f64 phi1) (*.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2)))))
(+.f64 (.f64 (cos.f64 phi1) (.f64 #s(literal 1 binary64) (cos.f64 phi2))) (.f64 (cos.f64 phi1) (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2)))))
(+.f64 (.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))) (cos.f64 phi1)))
(+.f64 (/.f64 (cos.f64 (+.f64 phi1 phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))) (.f64 #s(literal 1 binary64) (cos.f64 phi2)))) (.f64 #s(literal 1 binary64) (cos.f64 phi2)))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (.f64 #s(literal 1 binary64) (cos.f64 phi2))) (.f64 (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))) (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))))) (cos.f64 phi2))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (-.f64 (.f64 (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))) (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2)))) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2)))))))
(neg.f64 (sin.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (fma.f64 (PI.f64) #s(literal 1/2 binary64) 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 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi2)))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))
(sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))
(fma.f64 (sin.f64 (fabs.f64 phi2)) #s(literal 0 binary64) (*.f64 #s(literal 1 binary64) (cos.f64 phi2)))
(fma.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2)) (*.f64 #s(literal 1 binary64) (cos.f64 phi2)))
(fma.f64 (neg.f64 (sin.f64 phi2)) #s(literal 0 binary64) (*.f64 #s(literal 1 binary64) (cos.f64 phi2)))
(fma.f64 (sin.f64 phi2) #s(literal 0 binary64) (*.f64 #s(literal 1 binary64) (cos.f64 phi2)))
(fma.f64 #s(literal 1 binary64) (cos.f64 phi2) (*.f64 #s(literal 0 binary64) (sin.f64 phi2)))
(fma.f64 #s(literal 1 binary64) (cos.f64 phi2) (*.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))))
(fma.f64 (cos.f64 phi2) #s(literal 1 binary64) (*.f64 #s(literal 0 binary64) (sin.f64 phi2)))
(fma.f64 (cos.f64 phi2) #s(literal 1 binary64) (*.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))))
(-.f64 (.f64 (neg.f64 (sin.f64 phi2)) (cos.f64 (.f64 (neg.f64 (PI.f64)) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 (neg.f64 (PI.f64)) #s(literal 1/2 binary64)))))
(-.f64 (.f64 (neg.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 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(-.f64 (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(-.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (neg.f64 (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2)))))
(-.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (.f64 #s(literal 0 binary64) (sin.f64 phi2)))
(-.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))))
(cos.f64 (neg.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))))
(cos.f64 (neg.f64 (neg.f64 (fabs.f64 phi2))))
(cos.f64 (fabs.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))))
(cos.f64 (neg.f64 (fabs.f64 phi2)))
(cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)))
(cos.f64 (fabs.f64 phi2))
(cos.f64 (neg.f64 phi2))
(cos.f64 phi2)
(+.f64 (.f64 (sin.f64 (fabs.f64 phi2)) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (cos.f64 phi2)))
(+.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (cos.f64 phi2)))
(+.f64 (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))) (.f64 #s(literal 1 binary64) (cos.f64 phi2)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (.f64 #s(literal 0 binary64) (sin.f64 phi2)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 phi2))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi2))) (neg.f64 phi2))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/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 (neg.f64 phi2) (*.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 phi2 phi2)) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi2)))
(/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi2 phi2)) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))
(/.f64 (+.f64 (pow.f64 (neg.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 (neg.f64 phi2) (*.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 phi2 #s(literal 3 binary64))) (fma.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64)) (fma.f64 phi2 phi2 (.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))))
(/.f64 (+.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (neg.f64 phi2) #s(literal 3 binary64))) (fma.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 (.f64 phi2 phi2) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi2)))))
(neg.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (PI.f64) #s(literal 2/3 binary64))) (cbrt.f64 (PI.f64)) (neg.f64 phi2))
(fma.f64 (pow.f64 (PI.f64) #s(literal 2/3 binary64)) (*.f64 (cbrt.f64 (PI.f64)) #s(literal 1/2 binary64)) (neg.f64 phi2))
(fma.f64 (pow.f64 (PI.f64) #s(literal 2/3 binary64)) (/.f64 (cbrt.f64 (PI.f64)) #s(literal 2 binary64)) (neg.f64 phi2))
(fma.f64 (PI.f64) #s(literal 1/2 binary64) (neg.f64 phi2))
(fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2))
(-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)
(-.f64 (neg.f64 phi2) (*.f64 (neg.f64 (PI.f64)) #s(literal 1/2 binary64)))
(-.f64 (neg.f64 phi2) (*.f64 #s(literal -1/2 binary64) (PI.f64)))
(-.f64 (neg.f64 phi2) (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi2))
(+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(PI.f64)
(neg.f64 phi2)
(.f64 (sqrt.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal -1/2 binary64)))
(sqrt.f64 (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1 binary64)))
(sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fabs.f64 (neg.f64 (neg.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(fabs.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(exp.f64 (.f64 (log.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1 binary64))) #s(literal 1 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 1 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) (-.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (-.f64 (.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))
(neg.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (neg.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))
(fma.f64 (neg.f64 (cos.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))))
(fma.f64 (cos.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))))
(-.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))))
(+.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))
(.f64 (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))) #s(literal 2 binary64))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R))
(.f64 #s(literal 2 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)))
(fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R))
(fma.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (-.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 1 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(-.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (neg.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 1 binary64)) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(.f64 (pow.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (pow.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(pow.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal -1/2 binary64)))
(sqrt.f64 (pow.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 1 binary64)))
(sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(fabs.f64 (neg.f64 (neg.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))
(fabs.f64 (neg.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(fabs.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))
(exp.f64 (.f64 (log.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(/.f64 (-.f64 (.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal 3 binary64))) (fma.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (fma.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal 3 binary64)) (pow.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 (.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(neg.f64 (neg.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))
(fma.f64 (neg.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (neg.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(fma.f64 (neg.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (neg.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))))
(fma.f64 (neg.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (neg.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (cos.f64 phi1)) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))))
(+.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (cos.f64 phi1)) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (cos.f64 phi2)))
(.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))
(.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))))
(.f64 (cos.f64 phi1) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) #s(literal 2 binary64))
(.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(.f64 (cos.f64 phi1) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (cos.f64 phi2)))
(/.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) #s(literal 2 binary64))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(/.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1))) (+.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1)))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1) (-.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1) #s(literal 3 binary64))) (fma.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) lambda1)))))
(/.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1))) (-.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1)))
(/.f64 (+.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1) #s(literal 3 binary64))) (fma.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (-.f64 (.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1)))))
(neg.f64 (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(fma.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 lambda1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(fma.f64 lambda1 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))
(-.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1))
(+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))
(+.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (neg.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1)))
(+.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1))
(neg.f64 (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))
(*.f64 lambda2 #s(literal -1/2 binary64))
(*.f64 #s(literal -1/2 binary64) lambda2)
(neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))
(.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) lambda1)
(.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(.f64 (.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64))
(.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (*.f64 lambda1 #s(literal 1/2 binary64)))
(.f64 lambda1 (.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))
(.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) lambda1))
(/.f64 (.f64 (.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) lambda1)) #s(literal 2 binary64))
(/.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 2 binary64))
(.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1)
(.f64 lambda1 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (neg.f64 (.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 lambda2 #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64))))
(fma.f64 (sin.f64 (.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64))) #s(literal 0 binary64) (.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) #s(literal 0 binary64) (.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 0 binary64) (.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 #s(literal 0 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(cos.f64 (neg.f64 (neg.f64 (*.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (*.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64))))
(cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))
(cos.f64 (*.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64))) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 #s(literal 0 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(.f64 (sqrt.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal -1/2 binary64)))
(sqrt.f64 (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1 binary64)))
(sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fabs.f64 (neg.f64 (neg.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(fabs.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(exp.f64 (.f64 (log.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1 binary64))) #s(literal 1 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 1 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (neg.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (neg.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) (-.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (-.f64 (.f64 (neg.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (neg.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (fma.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))
(neg.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(neg.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (neg.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))
(fma.f64 (neg.f64 (cos.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))))
(fma.f64 (cos.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))))
(-.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))))
(+.f64 (neg.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))

eval601.0ms (1.4%)

Memory: 14.9MiB live, 1 359.0MiB allocated; 237ms collecting garbage
Compiler: Compiled 104 365 to 22 279 computations (78.7% saved)

prune456.0ms (1%)

Memory

6.1MiB live, 1 112.7MiB allocated; 31ms collecting garbage

Pruning

166 alts after pruning (166 fresh and 0 done)

	Pruned	Kept	Total
New	2 339	140	2 479
Fresh	54	26	80
Picked	5	0	5
Done	0	0	0
Total	2 398	166	2 564

Accuracy

99.2%

Counts

2 564 → 166

Alt Table

Click to see full alt table

Status	Accuracy	Program
	52.7%	(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
	52.7%	(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
	31.9%	(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
	40.2%	(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
	40.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	40.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	53.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
	31.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
	52.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
	52.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	75.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))))))))
	78.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	78.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	78.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	71.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	78.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	24.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (-.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (-.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	60.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	60.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	53.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (PI.f64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (PI.f64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	60.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	75.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	50.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	58.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	58.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
▶	98.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
	60.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
	60.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
	42.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	55.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	52.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	49.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	48.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	62.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	46.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #s(approx (sqrt (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
	67.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
	51.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))))
	51.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))
	47.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))))))
	47.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
	75.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
	57.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	56.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	59.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	78.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	52.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	42.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
	41.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64))))))))
	57.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	57.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	44.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	44.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	43.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	45.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	44.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	41.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	41.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	51.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	64.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))))))))
	47.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	60.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	60.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	76.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
	70.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))))))
	60.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	76.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))
	76.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))
	59.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
	59.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	60.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	58.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (cos.f64 (+.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	46.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	59.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	34.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	34.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	59.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
	60.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
	59.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
	47.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 (sin.f64 phi2) (cos.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 1/2 binary64))))))))
	35.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
	35.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
	48.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
	47.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
	39.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) #s(approx ( (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2))))))))))))
	49.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	51.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	46.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	40.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	47.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	59.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	40.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
	60.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fabs.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
	42.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
	56.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	49.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	51.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	36.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))))))
	39.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64)))))
	41.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	41.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	41.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	40.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	45.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	42.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
▶	41.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	52.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	40.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
	52.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	50.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	52.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	50.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
▶	46.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	42.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
	56.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	50.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	33.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	43.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	42.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	25.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	47.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	66.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (+.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	69.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	41.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	53.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
	45.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	60.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
▶	55.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	47.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
	53.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
	40.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	34.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	34.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	42.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
	17.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	42.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
	45.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
	45.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))))
	45.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))))))
	28.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	34.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	37.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	34.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	23.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
▶	23.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	45.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64))))))))))
	45.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
	43.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
	39.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	36.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	45.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	42.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	25.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	34.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	30.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	24.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	38.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
	40.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
	52.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	40.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	46.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	45.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	55.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	31.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	34.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	39.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	34.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))

Compiler

Compiled 23 808 to 14 344 computations (39.8% saved)

series421.0ms (0.9%)

Memory

20.1MiB live, 675.0MiB allocated; 47ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	3330	49767

Stop Event

1×	iter-limit

Counts

112 → 662

Calls

Call 1

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

Outputs
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx R R)
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/48 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
#s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))
#s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))
#s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal -1/48 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))))
#s(approx (sin (* lambda1 1/2)) (*.f64 #s(literal 1/2 binary64) lambda1))
#s(approx (sin (* lambda1 1/2)) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (sin (* lambda1 1/2)) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/3840 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/48 binary64))))))
#s(approx (sin (* lambda1 1/2)) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/3840 binary64) (.f64 #s(literal -1/645120 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/48 binary64))))))
#s(approx lambda1 lambda1)
#s(approx (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/384 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))
#s(approx (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/384 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
#s(approx (cos (* lambda1 1/2)) #s(literal 1 binary64))
#s(approx (cos (* lambda1 1/2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (cos (* lambda1 1/2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/384 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/8 binary64)))))
#s(approx (cos (* lambda1 1/2)) (+.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/384 binary64) (*.f64 #s(literal -1/46080 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/8 binary64)))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64))))))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (fma.f64 lambda1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))
#s(approx (sin (* 1/2 (- lambda1 lambda2))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (sin (* 1/2 (- lambda1 lambda2))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))
#s(approx (sin (* 1/2 (- lambda1 lambda2))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal -1/48 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
#s(approx (* 1/2 (- lambda1 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2))
#s(approx (* 1/2 (- lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) lambda1)))
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))
#s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))
#s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/1440 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))))
#s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/80640 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/1440 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))))))
#s(approx (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 phi2))))
#s(approx (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 phi2)) (*.f64 #s(literal 1/4 binary64) (cos.f64 phi2)))))
#s(approx (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (cos.f64 phi2) (.f64 #s(literal 1/1440 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 phi2))))))))
#s(approx (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/80640 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 phi2)) (*.f64 #s(literal 1/1440 binary64) (cos.f64 phi2)))))))))
#s(approx (pow (sin (* 1/2 lambda1)) 2) (*.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/1440 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/48 binary64))))))
#s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/1440 binary64) (.f64 #s(literal -1/80640 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/48 binary64))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))) (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))) (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))))))))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (fma.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda1 (cos.f64 lambda2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))) #s(literal 1/2 binary64)))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (cos.f64 lambda2) (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (sin.f64 lambda2)))))))) #s(literal 1/2 binary64)))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (sin.f64 lambda2)))))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda1 (cos.f64 lambda2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (cos.f64 lambda2) (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (sin.f64 lambda2)))))))))
#s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda2))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2))))))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (sin.f64 lambda2))))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2))))))
#s(approx (- lambda2 lambda1) lambda2)
#s(approx (- lambda2 lambda1) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/48 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))
#s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))
#s(approx (sin (* lambda1 1/2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))
#s(approx (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))
#s(approx (cos (* lambda1 1/2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))
#s(approx (sin (* 1/2 (- lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
#s(approx (* 1/2 (- lambda1 lambda2)) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))
#s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
#s(approx (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 lambda1)) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))
#s(approx (cos (- lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1)))
#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 (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))
#s(approx (sin (* 1/2 (- lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 1/2 binary64)))))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 1/2 binary64))))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 1/2 binary64)))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 1/2 binary64)))))))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 1/2 binary64)))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (cos (- lambda2 lambda1)) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))
#s(approx (- lambda2 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 lambda2 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 #s(literal 1/48 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
#s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))
#s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))
#s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal 1/48 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))
#s(approx (cos (* lambda2 1/2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (cos (* lambda2 1/2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/384 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/8 binary64)))))
#s(approx (cos (* lambda2 1/2)) (+.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/384 binary64) (*.f64 #s(literal -1/46080 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/8 binary64)))))
#s(approx (* lambda2 1/2) (*.f64 #s(literal 1/2 binary64) lambda2))
#s(approx (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))
#s(approx (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal 1/48 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))
#s(approx (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3840 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/48 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))
#s(approx (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3840 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal 1/645120 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))))
#s(approx (sin (* lambda2 -1/2)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sin (* lambda2 -1/2)) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/48 binary64) (*.f64 #s(literal -1/3840 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
#s(approx (sin (* lambda2 -1/2)) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/48 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/645120 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/3840 binary64))))) #s(literal 1/2 binary64))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 lambda2 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
#s(approx (- lambda1 lambda2) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda1)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)))))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)))))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda1)) (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda1)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda1)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)))))))))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1)))) (.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1)))) (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (neg.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1)))) #s(literal 1/2 binary64)))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda1)) (.f64 #s(literal -1/4 binary64) (*.f64 lambda2 (cos.f64 (neg.f64 lambda1))))))) #s(literal 1/2 binary64)))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 lambda1)) (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (sin.f64 (neg.f64 lambda1))))))))) #s(literal 1/2 binary64)))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (neg.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1)))))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda1)) (.f64 #s(literal -1/4 binary64) (*.f64 lambda2 (cos.f64 (neg.f64 lambda1))))))))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 lambda1)) (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (sin.f64 (neg.f64 lambda1))))))))))
#s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1)))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 (neg.f64 lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (neg.f64 lambda1))))))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 (neg.f64 lambda1)) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 (neg.f64 lambda1)))) (sin.f64 (neg.f64 lambda1))))))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 (neg.f64 lambda1)) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (sin.f64 (neg.f64 lambda1)))))) (sin.f64 (neg.f64 lambda1))))))
#s(approx (- lambda2 lambda1) (-.f64 lambda2 lambda1))
#s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/48 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
#s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3840 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/48 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))))
#s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/48 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3840 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/645120 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))))))
#s(approx (* (cos phi2) (sin (* -1/2 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 phi2))))
#s(approx (* (cos phi2) (sin (* -1/2 lambda2))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 #s(literal 1/48 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2))))))
#s(approx (* (cos phi2) (sin (* -1/2 lambda2))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3840 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2)) (.f64 #s(literal 1/48 binary64) (cos.f64 phi2)))))))
#s(approx (* (cos phi2) (sin (* -1/2 lambda2))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/48 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3840 binary64) (cos.f64 phi2) (.f64 #s(literal 1/645120 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2))))))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/1440 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2))))
#s(approx (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2)) (*.f64 #s(literal 1/4 binary64) (cos.f64 phi2)))))
#s(approx (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (cos.f64 phi2) (.f64 #s(literal 1/1440 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2))))))))
#s(approx (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/80640 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2)) (*.f64 #s(literal 1/1440 binary64) (cos.f64 phi2)))))))))
#s(approx (pow (sin (* -1/2 lambda2)) 2) (*.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (pow (sin (* -1/2 lambda2)) 2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (pow (sin (* -1/2 lambda2)) 2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/1440 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/48 binary64))))))
#s(approx (pow (sin (* -1/2 lambda2)) 2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/1440 binary64) (.f64 #s(literal -1/80640 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/48 binary64))))))
#s(approx (cos (* lambda2 1/2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))
#s(approx (* 1/2 (- lambda1 lambda2)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
#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 (* (cos phi2) (sin (* -1/2 lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))
#s(approx (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)))
#s(approx (sin (* 1/2 (- lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) #s(literal 1/2 binary64)))))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))) #s(literal 1/2 binary64))))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) #s(literal 1/2 binary64)))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) #s(literal 1/2 binary64)))))))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) #s(literal 1/2 binary64)))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.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 (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi1 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))
#s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi1 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (.f64 #s(literal -1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))
#s(approx (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))
#s(approx (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (-.f64 (.f64 phi1 (fma.f64 #s(literal 1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))
#s(approx (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (-.f64 (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (-.f64 (.f64 #s(literal -1/48 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
#s(approx (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))
#s(approx (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (.f64 phi1 (fma.f64 #s(literal -1/48 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
#s(approx (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/3840 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))))
#s(approx (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/645120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/3840 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))))))
#s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1))
#s(approx (sin (* 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (sin (* 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/3840 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/48 binary64))))))
#s(approx (sin (* 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/3840 binary64) (.f64 #s(literal -1/645120 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/48 binary64))))))
#s(approx phi1 phi1)
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal 1/384 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))))
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/384 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))))
#s(approx (cos (* 1/2 phi1)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (cos (* 1/2 phi1)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/384 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/8 binary64)))))
#s(approx (cos (* 1/2 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/384 binary64) (*.f64 #s(literal -1/46080 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/8 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (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)) (fma.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)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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) (+.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 (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) #s(literal 1/48 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/1440 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) #s(literal 1/48 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 phi1)) 2) (*.f64 #s(literal 1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/1440 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/48 binary64))))))
#s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/1440 binary64) (.f64 #s(literal -1/80640 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/48 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
#s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))
#s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))))
#s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal -1/48 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))))))
#s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))
#s(approx (/ (- phi1 phi2) 2) (fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) phi1)))
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (- phi1 phi2) (-.f64 phi1 phi2))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
#s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
#s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))
#s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 phi1 (sin.f64 phi2)) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) (.f64 phi1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 phi2) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi2))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) (.f64 phi1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 phi2) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/12 binary64) (sin.f64 phi2)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi2))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi2))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi2))))) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi2) (.f64 #s(literal -1/12 binary64) (.f64 phi1 (sin.f64 phi2))))))) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2))))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2)))))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi2) (.f64 #s(literal -1/12 binary64) (.f64 phi1 (sin.f64 phi2))))))))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))
#s(approx (* (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2))))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi2) (.f64 #s(literal -1/12 binary64) (.f64 phi1 (sin.f64 phi2)))))))))
#s(approx (cos (- phi2 phi1)) (+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2))))
#s(approx (cos (- phi2 phi1)) (+.f64 (cos.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 phi2))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))))))
#s(approx (cos (- phi2 phi1)) (+.f64 (cos.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2))))) (*.f64 #s(literal -1 binary64) (sin.f64 phi2))))))
#s(approx (- phi2 phi1) phi2)
#s(approx (- phi2 phi1) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))))
#s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))
#s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
#s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi1 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi1 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
#s(approx (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
#s(approx (sin (* 1/2 phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
#s(approx (cos (* 1/2 phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
#s(approx (* (cos phi1) (cos phi2)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (pow (sin (* 1/2 phi1)) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
#s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
#s(approx (/ (- phi1 phi2) 2) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 phi2 phi1)))))
#s(approx (- phi1 phi2) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 phi2 phi1)))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))
#s(approx (cos (- phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))
#s(approx (- phi2 phi1) (*.f64 #s(literal -1 binary64) phi1))
#s(approx (- phi2 phi1) (*.f64 phi1 (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))
#s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))
#s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
#s(approx (- phi1 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))
#s(approx (cos (- phi2 phi1)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))
#s(approx (- phi2 phi1) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
#s(approx (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (-.f64 (.f64 #s(literal -1/8 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
#s(approx (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal 1/48 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
#s(approx (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
#s(approx (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal 1/384 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))
#s(approx (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/384 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))))
#s(approx (cos (* phi2 -1/2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (cos (* phi2 -1/2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/384 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/8 binary64)))))
#s(approx (cos (* phi2 -1/2)) (+.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/384 binary64) (*.f64 #s(literal -1/46080 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/8 binary64)))))
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (.f64 phi2 (fma.f64 #s(literal -1/48 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal 1/3840 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/645120 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/3840 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))))
#s(approx (sin (* 1/2 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))
#s(approx (sin (* 1/2 phi2)) (.f64 phi2 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (sin (* 1/2 phi2)) (.f64 phi2 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/3840 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/48 binary64))))))
#s(approx (sin (* 1/2 phi2)) (.f64 phi2 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/3840 binary64) (.f64 #s(literal -1/645120 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/48 binary64))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))))
#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)) (fma.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)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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) (+.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 (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal -1/8 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))
#s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal 1/48 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))))
#s(approx (- phi1 phi2) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
#s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
#s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
#s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))
#s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))))
#s(approx (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
#s(approx (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
#s(approx (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 phi2 (sin.f64 (neg.f64 phi1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (neg.f64 phi1)) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi1)))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (neg.f64 phi1)) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (.f64 #s(literal 1/12 binary64) (sin.f64 (neg.f64 phi1))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi1)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi1)))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi1)))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (neg.f64 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi1)))))) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi1)) (.f64 #s(literal 1/12 binary64) (.f64 phi2 (sin.f64 (neg.f64 phi1)))))))) (.f64 (cos.f64 phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (neg.f64 phi1))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1))))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi1)) (.f64 #s(literal -1/4 binary64) (*.f64 phi2 (cos.f64 (neg.f64 phi1)))))))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi1)) (.f64 #s(literal 1/12 binary64) (.f64 phi2 (sin.f64 (neg.f64 phi1)))))))))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (neg.f64 phi1))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi1)) (.f64 #s(literal -1/4 binary64) (*.f64 phi2 (cos.f64 (neg.f64 phi1))))))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi1)) (.f64 #s(literal 1/12 binary64) (.f64 phi2 (sin.f64 (neg.f64 phi1))))))))))
#s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1)))
#s(approx (cos (- phi2 phi1)) (+.f64 (cos.f64 (neg.f64 phi1)) (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 (neg.f64 phi1))))))
#s(approx (cos (- phi2 phi1)) (+.f64 (cos.f64 (neg.f64 phi1)) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 (cos.f64 (neg.f64 phi1)))) (sin.f64 (neg.f64 phi1))))))
#s(approx (cos (- phi2 phi1)) (+.f64 (cos.f64 (neg.f64 phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (sin.f64 (neg.f64 phi1)))))) (sin.f64 (neg.f64 phi1))))))
#s(approx (- phi2 phi1) (-.f64 phi2 phi1))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))))
#s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))
#s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))
#s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (fma.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
#s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (fma.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
#s(approx (* (cos phi2) (sin (* -1/2 lambda2))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (* (cos phi2) (sin (* -1/2 lambda2))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))
#s(approx (* (cos phi2) (sin (* -1/2 lambda2))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/24 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))
#s(approx (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))
#s(approx (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))
#s(approx (cos (* phi2 -1/2)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
#s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))
#s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64))))
#s(approx (- phi2 phi1) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 phi1 phi2)))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))
#s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2))))))
#s(approx (- phi1 phi2) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2))))))
#s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))
#s(approx (- phi2 phi1) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))))

Calls

15 calls:

Time	Variable		Point	Expression
24.0ms	phi1	@	-inf	((* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))))))) R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))))) 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))))) (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (cos (* phi2 -1/2)) (* phi2 -1/2) phi2 -1/2 (sin (* 1/2 phi1)) (* 1/2 phi1) 1/2 phi1 (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin (* 1/2 phi2)) (* 1/2 phi2) (cos (* 1/2 phi1)) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (sin (* lambda1 1/2)) (* lambda1 1/2) lambda1 (cos (* lambda2 1/2)) (* lambda2 1/2) lambda2 (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))) (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)) (* lambda2 -1/2) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) 1 (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (* 1/2 (- lambda1 lambda2))) (* 1/2 (- lambda1 lambda2)) (- lambda1 lambda2) (pow (sin (* 1/2 phi1)) 2) (sin (* 1/2 phi1)) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (- phi1 phi2) 2)) 2) (sin (/ (- phi1 phi2) 2)) (/ (- phi1 phi2) 2) (- phi1 phi2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 lambda1)) 2) (sin (* 1/2 lambda1)) (* 1/2 lambda1) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos (- lambda2 lambda1)) 1/2) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (cos phi2) (cos phi1)) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (* (cos (- phi2 phi1)) 1/2) (cos (- phi2 phi1)) (- phi2 phi1) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (* (cos phi2) (sin (* -1/2 lambda2))) (sin (* -1/2 lambda2)) (* -1/2 lambda2) (sin (/ (- lambda1 lambda2) 2)) (/ (- lambda1 lambda2) 2) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* -1/2 lambda2)) 2) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (cos (* -1/2 phi2)) (* -1/2 phi2) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))
20.0ms	lambda2	@	-inf	((* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))))))) R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))))) 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))))) (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (cos (* phi2 -1/2)) (* phi2 -1/2) phi2 -1/2 (sin (* 1/2 phi1)) (* 1/2 phi1) 1/2 phi1 (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin (* 1/2 phi2)) (* 1/2 phi2) (cos (* 1/2 phi1)) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (sin (* lambda1 1/2)) (* lambda1 1/2) lambda1 (cos (* lambda2 1/2)) (* lambda2 1/2) lambda2 (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))) (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)) (* lambda2 -1/2) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) 1 (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (* 1/2 (- lambda1 lambda2))) (* 1/2 (- lambda1 lambda2)) (- lambda1 lambda2) (pow (sin (* 1/2 phi1)) 2) (sin (* 1/2 phi1)) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (- phi1 phi2) 2)) 2) (sin (/ (- phi1 phi2) 2)) (/ (- phi1 phi2) 2) (- phi1 phi2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 lambda1)) 2) (sin (* 1/2 lambda1)) (* 1/2 lambda1) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos (- lambda2 lambda1)) 1/2) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (cos phi2) (cos phi1)) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (* (cos (- phi2 phi1)) 1/2) (cos (- phi2 phi1)) (- phi2 phi1) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (* (cos phi2) (sin (* -1/2 lambda2))) (sin (* -1/2 lambda2)) (* -1/2 lambda2) (sin (/ (- lambda1 lambda2) 2)) (/ (- lambda1 lambda2) 2) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* -1/2 lambda2)) 2) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (cos (* -1/2 phi2)) (* -1/2 phi2) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))
20.0ms	lambda1	@	-inf	((* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))))))) R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))))) 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))))) (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (cos (* phi2 -1/2)) (* phi2 -1/2) phi2 -1/2 (sin (* 1/2 phi1)) (* 1/2 phi1) 1/2 phi1 (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin (* 1/2 phi2)) (* 1/2 phi2) (cos (* 1/2 phi1)) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (sin (* lambda1 1/2)) (* lambda1 1/2) lambda1 (cos (* lambda2 1/2)) (* lambda2 1/2) lambda2 (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))) (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)) (* lambda2 -1/2) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) 1 (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (* 1/2 (- lambda1 lambda2))) (* 1/2 (- lambda1 lambda2)) (- lambda1 lambda2) (pow (sin (* 1/2 phi1)) 2) (sin (* 1/2 phi1)) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (- phi1 phi2) 2)) 2) (sin (/ (- phi1 phi2) 2)) (/ (- phi1 phi2) 2) (- phi1 phi2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 lambda1)) 2) (sin (* 1/2 lambda1)) (* 1/2 lambda1) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos (- lambda2 lambda1)) 1/2) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (cos phi2) (cos phi1)) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (* (cos (- phi2 phi1)) 1/2) (cos (- phi2 phi1)) (- phi2 phi1) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (* (cos phi2) (sin (* -1/2 lambda2))) (sin (* -1/2 lambda2)) (* -1/2 lambda2) (sin (/ (- lambda1 lambda2) 2)) (/ (- lambda1 lambda2) 2) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* -1/2 lambda2)) 2) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (cos (* -1/2 phi2)) (* -1/2 phi2) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))
20.0ms	phi2	@	-inf	((* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))))))) R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))))) 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))))) (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (cos (* phi2 -1/2)) (* phi2 -1/2) phi2 -1/2 (sin (* 1/2 phi1)) (* 1/2 phi1) 1/2 phi1 (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin (* 1/2 phi2)) (* 1/2 phi2) (cos (* 1/2 phi1)) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (sin (* lambda1 1/2)) (* lambda1 1/2) lambda1 (cos (* lambda2 1/2)) (* lambda2 1/2) lambda2 (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))) (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)) (* lambda2 -1/2) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) 1 (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (* 1/2 (- lambda1 lambda2))) (* 1/2 (- lambda1 lambda2)) (- lambda1 lambda2) (pow (sin (* 1/2 phi1)) 2) (sin (* 1/2 phi1)) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (- phi1 phi2) 2)) 2) (sin (/ (- phi1 phi2) 2)) (/ (- phi1 phi2) 2) (- phi1 phi2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 lambda1)) 2) (sin (* 1/2 lambda1)) (* 1/2 lambda1) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos (- lambda2 lambda1)) 1/2) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (cos phi2) (cos phi1)) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (* (cos (- phi2 phi1)) 1/2) (cos (- phi2 phi1)) (- phi2 phi1) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (* (cos phi2) (sin (* -1/2 lambda2))) (sin (* -1/2 lambda2)) (* -1/2 lambda2) (sin (/ (- lambda1 lambda2) 2)) (/ (- lambda1 lambda2) 2) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* -1/2 lambda2)) 2) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (cos (* -1/2 phi2)) (* -1/2 phi2) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))
19.0ms	phi1	@	inf	((* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))))))) R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))))) 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))))) (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (cos (* phi2 -1/2)) (* phi2 -1/2) phi2 -1/2 (sin (* 1/2 phi1)) (* 1/2 phi1) 1/2 phi1 (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin (* 1/2 phi2)) (* 1/2 phi2) (cos (* 1/2 phi1)) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (sin (* lambda1 1/2)) (* lambda1 1/2) lambda1 (cos (* lambda2 1/2)) (* lambda2 1/2) lambda2 (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))) (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)) (* lambda2 -1/2) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) 1 (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (* 1/2 (- lambda1 lambda2))) (* 1/2 (- lambda1 lambda2)) (- lambda1 lambda2) (pow (sin (* 1/2 phi1)) 2) (sin (* 1/2 phi1)) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (- phi1 phi2) 2)) 2) (sin (/ (- phi1 phi2) 2)) (/ (- phi1 phi2) 2) (- phi1 phi2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 lambda1)) 2) (sin (* 1/2 lambda1)) (* 1/2 lambda1) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos (- lambda2 lambda1)) 1/2) (cos (- lambda2 lambda1)) (- lambda2 lambda1) (* (cos phi2) (cos phi1)) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (* (cos (- phi2 phi1)) 1/2) (cos (- phi2 phi1)) (- phi2 phi1) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (* (cos phi2) (sin (* -1/2 lambda2))) (sin (* -1/2 lambda2)) (* -1/2 lambda2) (sin (/ (- lambda1 lambda2) 2)) (/ (- lambda1 lambda2) 2) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* -1/2 lambda2)) 2) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (cos (* -1/2 phi2)) (* -1/2 phi2) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))

rewrite369.0ms (0.8%)

Memory

4.0MiB live, 561.5MiB allocated; 60ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	137	3347
0	241	3267
1	927	2599
2	4059	2419
0	8340	2367

Stop Event

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

Counts

112 → 1 748

Calls

Call 1

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

Outputs
(.f64 (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))) #s(literal 2 binary64))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R))
(.f64 #s(literal 2 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)))
(fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R))
(fma.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R))
R
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (-.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 1 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(-.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (neg.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 1 binary64)) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(fabs.f64 (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(fabs.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))
(exp.f64 (.f64 (log.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))))))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (fma.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(neg.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi2)) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(fma.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(fma.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))))))
(+.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))
(+.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))))))
(+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))
(.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))) (-.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))))))
(fma.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(fma.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(-.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (neg.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
(-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))
(+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))))) (sin.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) phi2))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))
(sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64)))
(sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 phi1 #s(literal 1/2 binary64))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (cos.f64 (/.f64 phi2 #s(literal -2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (/.f64 (neg.f64 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (cos.f64 (/.f64 phi1 #s(literal -2 binary64)))) (.f64 (cos.f64 (/.f64 phi2 #s(literal -2 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))))
(-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi1 #s(literal 1/2 binary64))))
(+.f64 (.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (cos.f64 (/.f64 phi2 #s(literal -2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))))
(.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(/.f64 (-.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (fma.f64 (fabs.f64 phi2) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 (fabs.f64 phi2) #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (fabs.f64 phi2) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (+.f64 (fma.f64 (fabs.f64 phi2) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (neg.f64 (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))))) (sin.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (neg.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (fabs.f64 (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))))) (sin.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fabs.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(sin.f64 (+.f64 (neg.f64 (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (fabs.f64 phi2) #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi2)))
(fma.f64 (sin.f64 (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))) #s(literal 0 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 0 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 0 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1 binary64)))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(cos.f64 (neg.f64 (neg.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (fabs.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))))
(cos.f64 (fabs.f64 (neg.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))))
(cos.f64 (fabs.f64 (fabs.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))))
(cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 (neg.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))))
(cos.f64 (fabs.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))))
(cos.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 0 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1 binary64)))
(*.f64 #s(literal -1/2 binary64) phi2)
(*.f64 phi2 #s(literal -1/2 binary64))
(neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))
phi2
#s(literal -1/2 binary64)
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(*.f64 phi1 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) phi1)
(/.f64 (*.f64 phi1 #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) phi1) #s(literal 2 binary64))
(/.f64 (neg.f64 phi1) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))
(/.f64 phi1 #s(literal 2 binary64))
#s(literal 1/2 binary64)
phi1
(.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1/2 binary64))
(.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (fabs.f64 phi1) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (fma.f64 (fabs.f64 phi1) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (fma.f64 phi1 #s(literal -1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (fma.f64 (fabs.f64 phi1) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (fma.f64 (fabs.f64 phi1) #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (neg.f64 (.f64 phi1 #s(literal -1/2 binary64))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (neg.f64 (*.f64 phi1 #s(literal -1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (neg.f64 (.f64 (fabs.f64 phi1) #s(literal 1/2 binary64))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (neg.f64 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (fabs.f64 (.f64 (fabs.f64 phi1) #s(literal 1/2 binary64))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (fabs.f64 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))
(+.f64 (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))
(neg.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(sin.f64 (neg.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (PI.f64))))
(sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (PI.f64)) (PI.f64)))
(sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (PI.f64)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (PI.f64)))
(cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (PI.f64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi2)))
(*.f64 (neg.f64 phi2) #s(literal -1/2 binary64))
(*.f64 #s(literal 1/2 binary64) phi2)
(*.f64 #s(literal -1/2 binary64) (neg.f64 phi2))
(*.f64 phi2 #s(literal 1/2 binary64))
(/.f64 (*.f64 phi2 #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) phi2) #s(literal 2 binary64))
(/.f64 (neg.f64 phi2) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))
(/.f64 phi2 #s(literal 2 binary64))
(neg.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(sin.f64 (+.f64 (neg.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (neg.f64 (.f64 (fabs.f64 phi1) #s(literal 1/2 binary64))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 (.f64 (fabs.f64 phi1) #s(literal 1/2 binary64))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (fabs.f64 phi1) #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 phi1 #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (.f64 (fabs.f64 phi1) #s(literal 1/2 binary64))) #s(literal 0 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 0 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 0 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(cos.f64 (neg.f64 (neg.f64 (*.f64 phi1 #s(literal -1/2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (fabs.f64 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)))))
(cos.f64 (fabs.f64 (neg.f64 (*.f64 phi1 #s(literal -1/2 binary64)))))
(cos.f64 (fabs.f64 (neg.f64 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)))))
(cos.f64 (fabs.f64 (fabs.f64 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (*.f64 phi1 #s(literal -1/2 binary64))))
(cos.f64 (neg.f64 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64))))
(cos.f64 (fabs.f64 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64))))
(cos.f64 (*.f64 phi1 #s(literal -1/2 binary64)))
(cos.f64 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 (fabs.f64 phi1) #s(literal 1/2 binary64))) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 #s(literal 0 binary64) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))))
(.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))
(.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi2)) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))))))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (-.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi2)) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi2)) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(-.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))
(-.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))))
(-.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (neg.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))
(+.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(.f64 (.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(.f64 (.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi2)))
(/.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (-.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))))
(fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (neg.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))
(+.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))
(*.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (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 phi2 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 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 phi2 phi1)) (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 phi2 phi1))) #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))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1))) (cos.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fma.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))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1))) (cos.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (fma.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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (fma.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))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fma.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))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (fma.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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (fma.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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (fma.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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (fma.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 phi1 phi2)) (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 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 (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 phi2 phi1)) (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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 phi2))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fabs.f64 phi2))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (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)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1))
(fma.f64 (sin.f64 (fabs.f64 phi1)) #s(literal 0 binary64) (*.f64 (cos.f64 phi1) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (neg.f64 phi1)) #s(literal 0 binary64) (*.f64 (cos.f64 phi1) #s(literal 1 binary64)))
(fma.f64 (sin.f64 phi1) #s(literal 0 binary64) (*.f64 (cos.f64 phi1) #s(literal 1 binary64)))
(fma.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) (sin.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(cos.f64 (neg.f64 (neg.f64 (neg.f64 phi1))))
(cos.f64 (neg.f64 (neg.f64 (fabs.f64 phi1))))
(cos.f64 (neg.f64 (fabs.f64 (fabs.f64 phi1))))
(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 (sin.f64 (neg.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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))
(fma.f64 (sin.f64 (fabs.f64 phi2)) #s(literal 0 binary64) (*.f64 (cos.f64 phi2) #s(literal 1 binary64)))
(fma.f64 (neg.f64 (sin.f64 phi2)) #s(literal 0 binary64) (*.f64 (cos.f64 phi2) #s(literal 1 binary64)))
(fma.f64 (sin.f64 phi2) #s(literal 0 binary64) (*.f64 (cos.f64 phi2) #s(literal 1 binary64)))
(fma.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) (sin.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(cos.f64 (neg.f64 (neg.f64 (neg.f64 phi2))))
(cos.f64 (neg.f64 (neg.f64 (fabs.f64 phi2))))
(cos.f64 (neg.f64 (fabs.f64 (fabs.f64 phi2))))
(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 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(/.f64 (fma.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))) (+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (-.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (fma.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (-.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))))
(neg.f64 (-.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))
(sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64))))
(sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64) (neg.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))))
(fma.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64))) (.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (neg.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (neg.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))))
(fma.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (/.f64 lambda1 #s(literal -2 binary64)))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (/.f64 lambda1 #s(literal -2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (neg.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))
(+.f64 (.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (neg.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
(*.f64 lambda1 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) lambda1)
(/.f64 (*.f64 lambda1 #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) lambda1) #s(literal 2 binary64))
(/.f64 (neg.f64 lambda1) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) lambda1))
(/.f64 lambda1 #s(literal 2 binary64))
lambda1
(sin.f64 (+.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (neg.f64 (.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 (.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64))) #s(literal 0 binary64) (.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) #s(literal 0 binary64) (.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 0 binary64) (.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 #s(literal 0 binary64) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(cos.f64 (neg.f64 (neg.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 (*.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (fabs.f64 (*.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64)))))
(cos.f64 (fabs.f64 (neg.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(cos.f64 (fabs.f64 (neg.f64 (*.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64)))))
(cos.f64 (fabs.f64 (fabs.f64 (*.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(cos.f64 (neg.f64 (*.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64))))
(cos.f64 (fabs.f64 (*.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64))))
(cos.f64 (*.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))
(cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64))) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 #s(literal 0 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(*.f64 lambda2 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) lambda2)
(/.f64 (*.f64 lambda2 #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) lambda2) #s(literal 2 binary64))
(/.f64 (neg.f64 lambda2) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) lambda2))
(/.f64 lambda2 #s(literal 2 binary64))
lambda2
(.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))
(.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (fma.f64 lambda1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (fma.f64 lambda1 #s(literal -1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (fma.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (fma.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 lambda1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (+.f64 (fma.f64 lambda1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (+.f64 (fma.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (neg.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (neg.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (neg.f64 (.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64))))) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (neg.f64 (*.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (fabs.f64 (.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64))))) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (fabs.f64 (*.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 lambda1 #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (*.f64 lambda1 #s(literal -1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (*.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))
(sin.f64 (+.f64 (neg.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (neg.f64 (.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 (.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 lambda1 #s(literal -1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64))) #s(literal 0 binary64) (.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) #s(literal 0 binary64) (.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 0 binary64) (.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 #s(literal 0 binary64) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(cos.f64 (neg.f64 (neg.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 (*.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (fabs.f64 (*.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64)))))
(cos.f64 (fabs.f64 (neg.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))
(cos.f64 (fabs.f64 (neg.f64 (*.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64)))))
(cos.f64 (fabs.f64 (fabs.f64 (*.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))
(cos.f64 (neg.f64 (*.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64))))
(cos.f64 (fabs.f64 (*.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64))))
(cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))
(cos.f64 (*.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64))) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 #s(literal 0 binary64) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))
(*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64))
(*.f64 lambda2 #s(literal -1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2))
(*.f64 #s(literal -1/2 binary64) lambda2)
(neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))
(.f64 (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(fabs.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(exp.f64 (.f64 (log.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1 binary64))) #s(literal 1 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 1 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) (-.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (-.f64 (.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))
(neg.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (neg.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))
(fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))))))
(-.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(-.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))))))
(+.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))
#s(literal 1 binary64)
(.f64 (.f64 R (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))) #s(literal 2 binary64))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 #s(literal 2 binary64) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) R))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) #s(literal 2 binary64)))
(fma.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) R (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) R))
(fma.f64 R (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 R (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(+.f64 (.f64 R (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))) (.f64 R (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) R) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) R))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))) (-.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))))
(fma.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) #s(literal 1 binary64) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(-.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (neg.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) #s(literal 1 binary64)) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(+.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))
(atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))
(.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))
(sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))
(fabs.f64 (neg.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))
(fabs.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))
(exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)) (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))
(/.f64 (-.f64 (.f64 (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (-.f64 (.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))) (.f64 (.f64 (neg.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)) (.f64 (neg.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))) (.f64 (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)) (fma.f64 (.f64 (neg.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)) (.f64 (neg.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))) (.f64 (.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)) (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)) (-.f64 (.f64 (.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)) (.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64))))))))
(neg.f64 (-.f64 (.f64 (neg.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))
(fma.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (neg.f64 (.f64 (neg.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64))))))
(fma.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (fabs.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (fabs.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))
(fma.f64 (neg.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (neg.f64 (.f64 (neg.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64))))))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1) (neg.f64 (.f64 (neg.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64))))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1) (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (neg.f64 (.f64 (neg.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64))))))
(fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64)))))
(-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)) (.f64 (neg.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64)))))
(-.f64 (.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))))) (cos.f64 phi1)))
(-.f64 (.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))))))
(-.f64 (.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))
(+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)) (neg.f64 (.f64 (neg.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64))))))
(+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)) (.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))
(.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (fabs.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (neg.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 1 binary64)) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))
(pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))) #s(literal 2 binary64))
(fma.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))
(fma.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))
(+.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(/.f64 (fma.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))) (+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (-.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (fma.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (-.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))))
(neg.f64 (-.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))
(sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64))))
(sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64) (neg.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))))
(fma.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64))) (.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (neg.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (neg.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))))
(fma.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (/.f64 lambda1 #s(literal -2 binary64)))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (/.f64 lambda1 #s(literal -2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (neg.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))
(+.f64 (.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (neg.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 lambda1 #s(literal 1/2 binary64)))
(*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(/.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) lambda2) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (pow.f64 (.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 lambda2 #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)) (fma.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 lambda1 #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) lambda2)) #s(literal 4 binary64))
(/.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (-.f64 lambda2 lambda1)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(neg.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64)))
(neg.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(neg.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(neg.f64 (/.f64 (-.f64 lambda2 lambda1) #s(literal 2 binary64)))
(neg.f64 (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64))))
(fma.f64 lambda1 #s(literal 1/2 binary64) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 lambda2 #s(literal -1/2 binary64)))
(-.f64 (/.f64 lambda2 #s(literal -2 binary64)) (/.f64 lambda1 #s(literal -2 binary64)))
(-.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))
(+.f64 (/.f64 lambda2 #s(literal -2 binary64)) (*.f64 lambda1 #s(literal 1/2 binary64)))
(+.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal -1/2 binary64)))
(*.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))) (fma.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))) (fma.f64 lambda1 lambda1 (fma.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) (neg.f64 (neg.f64 lambda1)))
(+.f64 (neg.f64 lambda2) lambda1)
(+.f64 lambda1 (neg.f64 lambda2))
(.f64 (fabs.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (fabs.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64)))))
(.f64 (neg.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64)))))
(.f64 (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(.f64 (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64))))
(.f64 (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64))))
(pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
#s(approx (sin (* 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64)))
(.f64 (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))
(fabs.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))
(exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1 binary64))) #s(literal 1 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(literal 1 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (-.f64 #s(literal 1 binary64) (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (-.f64 (.f64 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) (.f64 #s(literal 1 binary64) (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (fma.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))
(neg.f64 (-.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(literal 1 binary64)))
(-.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))
(-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))
(+.f64 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))
(.f64 (.f64 R (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (.f64 #s(literal 2 binary64) R))
(.f64 #s(literal 2 binary64) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) R))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(fma.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) R (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) R))
(fma.f64 R (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (.f64 R (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(+.f64 (.f64 R (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (.f64 R (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) R) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) R))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (-.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))))
(fma.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 1 binary64) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(-.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (neg.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(+.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(fabs.f64 (neg.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(fabs.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))
(exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(/.f64 (-.f64 (.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (-.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))) (neg.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (neg.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal 3 binary64))) (fma.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal 3 binary64)) (pow.f64 (neg.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (fma.f64 (neg.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))) (neg.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (neg.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal 3 binary64)) (pow.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 (.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))))
(neg.f64 (-.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (neg.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))
(-.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (neg.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))
(+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (neg.f64 (neg.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))
(.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))) (-.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))))))
(fma.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(fma.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(-.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (neg.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
(-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))
(+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))))) (sin.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) phi2))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))
(sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64)))
(sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 phi1 #s(literal 1/2 binary64))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (cos.f64 (/.f64 phi2 #s(literal -2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (/.f64 (neg.f64 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (cos.f64 (/.f64 phi1 #s(literal -2 binary64)))) (.f64 (cos.f64 (/.f64 phi2 #s(literal -2 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))))
(-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi1 #s(literal 1/2 binary64))))
(+.f64 (.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (cos.f64 (/.f64 phi2 #s(literal -2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 phi1 #s(literal 1/2 binary64)))
(*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))
(/.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 phi1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) phi2) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(/.f64 (-.f64 (pow.f64 (.f64 phi1 #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) phi2) #s(literal 3 binary64))) (fma.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi1 #s(literal 1/2 binary64)) (fma.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi2) (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) phi2)))))
(/.f64 (-.f64 (.f64 phi1 #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) phi2)) #s(literal 4 binary64))
(/.f64 (-.f64 phi2 phi1) #s(literal -2 binary64))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (-.f64 phi2 phi1)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))
(neg.f64 (*.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))
(neg.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64)))
(neg.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))
(neg.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))
(fma.f64 phi1 #s(literal 1/2 binary64) (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))
(fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi2))
(fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal -1/2 binary64) phi2))
(-.f64 (/.f64 phi2 #s(literal -2 binary64)) (/.f64 phi1 #s(literal -2 binary64)))
(-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) phi2))
(+.f64 (/.f64 phi2 #s(literal -2 binary64)) (*.f64 phi1 #s(literal 1/2 binary64)))
(+.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))
(+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) phi2))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 phi2) phi1)) phi1)
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)
(/.f64 (-.f64 (.f64 phi1 phi1) (.f64 (neg.f64 phi2) (neg.f64 phi2))) (+.f64 phi1 phi2))
(/.f64 (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (neg.f64 phi2) #s(literal 3 binary64))) (fma.f64 phi1 phi1 (-.f64 (.f64 (neg.f64 phi2) (neg.f64 phi2)) (.f64 phi1 (neg.f64 phi2)))))
(/.f64 (-.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)) (+.f64 phi1 phi2))
(/.f64 (-.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) (fma.f64 phi1 phi1 (fma.f64 phi2 phi2 (*.f64 phi1 phi2))))
(neg.f64 (-.f64 phi2 phi1))
(-.f64 phi1 (neg.f64 (neg.f64 phi2)))
(-.f64 phi1 phi2)
(+.f64 (neg.f64 phi2) (neg.f64 (neg.f64 phi1)))
(+.f64 (neg.f64 phi2) phi1)
(+.f64 phi1 (neg.f64 phi2))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (cos.f64 phi2))
(.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))))))
(.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi1)))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64))))))))
(.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))
(.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2))
(.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)))
(.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))))
(.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))
(.f64 (fabs.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(.f64 (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64))))))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
(*.f64 lambda1 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) lambda1)
(/.f64 (*.f64 lambda1 #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) lambda1) #s(literal 2 binary64))
(/.f64 (neg.f64 lambda1) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) lambda1))
(/.f64 lambda1 #s(literal 2 binary64))
(.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(fabs.f64 (neg.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(fabs.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)))) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(/.f64 (-.f64 (.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #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 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 (.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)))) (+.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #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))) (fma.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #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 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (-.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(neg.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)))
(fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi1) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)))
(-.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)))
(-.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi2))) (cos.f64 phi1)))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(+.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)))
(+.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 #s(literal -1/2 binary64) #s(literal -1/2 binary64))) (-.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 #s(literal -1/2 binary64) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (-.f64 (.f64 #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))
(neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64))
(-.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))
(+.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))
(/.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64))
(fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 1/2 binary64) (.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 1/2 binary64)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (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)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (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 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(sin.f64 (+.f64 (neg.f64 (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 (fabs.f64 (-.f64 lambda2 lambda1)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (-.f64 lambda1 lambda2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(fma.f64 (sin.f64 (fabs.f64 (-.f64 lambda2 lambda1))) #s(literal 0 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (-.f64 lambda2 lambda1)) #s(literal 0 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)))
(fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda2) (sin.f64 (neg.f64 (neg.f64 lambda1)))))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 (neg.f64 (neg.f64 lambda2)))))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 (neg.f64 (neg.f64 lambda1)))))
(fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 (neg.f64 (neg.f64 lambda2)))))
(fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(fma.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda2 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)) #s(literal 0 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (neg.f64 lambda1)) (sin.f64 (neg.f64 (neg.f64 lambda2)))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (neg.f64 lambda1)) (sin.f64 lambda2)))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 (neg.f64 (neg.f64 lambda1)))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (neg.f64 (.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 (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))
(cos.f64 (neg.f64 (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))
(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 (fabs.f64 (-.f64 lambda2 lambda1)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos.f64 (-.f64 lambda1 lambda2))
(+.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 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda2 lambda1))))
(+.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 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 (neg.f64 (neg.f64 lambda1)))))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 (neg.f64 (neg.f64 lambda2)))))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(*.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))) (fma.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))) (fma.f64 lambda2 lambda2 (fma.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))
(*.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (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 phi2 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 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 phi2 phi1)) (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 phi2 phi1))) #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))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1))) (cos.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fma.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))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1))) (cos.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (fma.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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (fma.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))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fma.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))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (fma.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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (fma.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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (fma.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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (fma.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 phi1 phi2)) (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 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 (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 phi2 phi1)) (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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 phi2))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fabs.f64 phi2))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (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)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(*.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1 binary64)))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1 binary64)) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 2 binary64) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (-.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 #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64))) (fma.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 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 #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))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1 binary64)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 #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))) (fma.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(neg.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))
(-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))
(-.f64 #s(literal 1/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)) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 (neg.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1)))) #s(literal 1/2 binary64)))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))
(/.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 2 binary64))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (cos.f64 (+.f64 phi1 phi2)))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(sin.f64 (+.f64 (neg.f64 (fabs.f64 (-.f64 phi2 phi1))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 (fabs.f64 (-.f64 phi2 phi1))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 (-.f64 phi2 phi1)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) phi1))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))
(fma.f64 (sin.f64 (fabs.f64 (-.f64 phi2 phi1))) #s(literal 0 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (-.f64 phi1 phi2)) #s(literal 0 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (-.f64 phi2 phi1)) #s(literal 0 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi2) (sin.f64 (neg.f64 (neg.f64 phi1)))))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 (neg.f64 phi2)))))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1)) (*.f64 #s(literal 0 binary64) (sin.f64 (-.f64 phi2 phi1))))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 (neg.f64 (neg.f64 phi1)))))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 (neg.f64 phi2)))))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 (neg.f64 (neg.f64 phi1)))))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 (neg.f64 phi2)))))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(-.f64 (.f64 (sin.f64 phi2) (cos.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))))
(-.f64 (.f64 (sin.f64 (-.f64 phi2 phi1)) #s(literal 0 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(-.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 (neg.f64 phi1)) (sin.f64 (neg.f64 (neg.f64 phi2)))))
(-.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 (neg.f64 (neg.f64 phi1)))))
(-.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 (neg.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (neg.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(-.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (neg.f64 (sin.f64 phi2))))
(cos.f64 (neg.f64 (neg.f64 (fabs.f64 (-.f64 phi2 phi1)))))
(cos.f64 (neg.f64 (fabs.f64 (fabs.f64 (-.f64 phi2 phi1)))))
(cos.f64 (fabs.f64 (neg.f64 (fabs.f64 (-.f64 phi2 phi1)))))
(cos.f64 (fabs.f64 (fabs.f64 (fabs.f64 (-.f64 phi2 phi1)))))
(cos.f64 (neg.f64 (fabs.f64 (-.f64 phi2 phi1))))
(cos.f64 (fabs.f64 (fabs.f64 (-.f64 phi2 phi1))))
(cos.f64 (fabs.f64 (-.f64 phi2 phi1)))
(cos.f64 (-.f64 phi2 phi1))
(cos.f64 (-.f64 phi1 phi2))
(+.f64 (.f64 (sin.f64 (fabs.f64 (-.f64 phi2 phi1))) #s(literal 0 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (-.f64 phi1 phi2)) #s(literal 0 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1))) (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 phi2 phi1))))
(+.f64 (.f64 (sin.f64 (-.f64 phi2 phi1)) #s(literal 0 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(+.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 (neg.f64 phi1)))))
(+.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 (neg.f64 phi2)))))
(+.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 phi1) phi2)) phi2)
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) phi2)
(/.f64 (-.f64 (.f64 phi2 phi2) (.f64 (neg.f64 phi1) (neg.f64 phi1))) (+.f64 phi1 phi2))
(/.f64 (+.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 (neg.f64 phi1) #s(literal 3 binary64))) (fma.f64 phi2 phi2 (-.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (.f64 phi2 (neg.f64 phi1)))))
(/.f64 (-.f64 (.f64 phi2 phi2) (.f64 phi1 phi1)) (+.f64 phi1 phi2))
(/.f64 (-.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (*.f64 phi2 phi1))))
(neg.f64 (-.f64 phi1 phi2))
(-.f64 phi2 (neg.f64 (neg.f64 phi1)))
(-.f64 phi2 phi1)
(+.f64 (neg.f64 phi1) (neg.f64 (neg.f64 phi2)))
(+.f64 (neg.f64 phi1) phi2)
(+.f64 phi2 (neg.f64 phi1))
(.f64 (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))))) #s(literal 2 binary64))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 #s(literal 2 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) R))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 2 binary64)))
(fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) R (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) R))
(fma.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(+.f64 (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))))) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) R) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) R))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))) (-.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))))))))
(fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 1 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(-.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) (neg.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 1 binary64)) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(+.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))))
(.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(fabs.f64 (neg.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(fabs.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))
(exp.f64 (.f64 (log.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (-.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 (.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (fma.f64 (.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(neg.f64 (neg.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (.f64 (neg.f64 (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (neg.f64 (.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (neg.f64 (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(-.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(+.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (neg.f64 #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (neg.f64 (.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 phi2))
(.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(.f64 (cos.f64 phi2) (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1)))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64))
(.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2))
(.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 lambda2 #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 lambda2 #s(literal -1/2 binary64)) (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 lambda2 #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 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 lambda2 #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 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (neg.f64 (neg.f64 phi2)))) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (cos.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (neg.f64 phi2))) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (fabs.f64 phi2))) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))
(sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))
(*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64))
(*.f64 lambda2 #s(literal -1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2))
(*.f64 #s(literal -1/2 binary64) lambda2)
(neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(/.f64 (fma.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))) (+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (-.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (fma.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (-.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))))
(neg.f64 (-.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))
(sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64))))
(sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64) (neg.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))))
(fma.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64))) (.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (neg.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (neg.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))))
(fma.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (/.f64 lambda1 #s(literal -2 binary64)))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (/.f64 lambda1 #s(literal -2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (neg.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))
(+.f64 (.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (neg.f64 (.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 lambda1 #s(literal 1/2 binary64)))
(*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(/.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) lambda2) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (pow.f64 (.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 lambda2 #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)) (fma.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 lambda1 #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) lambda2)) #s(literal 4 binary64))
(/.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (-.f64 lambda2 lambda1)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(neg.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64)))
(neg.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(neg.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(neg.f64 (/.f64 (-.f64 lambda2 lambda1) #s(literal 2 binary64)))
(neg.f64 (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64))))
(fma.f64 lambda1 #s(literal 1/2 binary64) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 lambda2 #s(literal -1/2 binary64)))
(-.f64 (/.f64 lambda2 #s(literal -2 binary64)) (/.f64 lambda1 #s(literal -2 binary64)))
(-.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))
(+.f64 (/.f64 lambda2 #s(literal -2 binary64)) (*.f64 lambda1 #s(literal 1/2 binary64)))
(+.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal -1/2 binary64)))
(.f64 (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(fabs.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))))
(exp.f64 (.f64 (log.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1 binary64))) #s(literal 1 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 1 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (neg.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (neg.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) (-.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (-.f64 (.f64 (neg.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (neg.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (fma.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (fma.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))
(neg.f64 (-.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(neg.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (neg.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))
(fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(-.f64 (-.f64 #s(literal 1 binary64) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(+.f64 (neg.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))
(.f64 (.f64 R (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))) #s(literal 2 binary64))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) (.f64 #s(literal 2 binary64) R))
(.f64 #s(literal 2 binary64) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) R))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)))
(fma.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) R (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) R))
(fma.f64 R (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) (.f64 R (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(+.f64 (.f64 R (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))) (.f64 R (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) R) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) R))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))) (-.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))))
(fma.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 1 binary64) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(-.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) (neg.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 1 binary64)) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(+.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))
(.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))
(sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))
(fabs.f64 (neg.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))
(fabs.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) #s(literal 1/2 binary64)))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (+.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(neg.f64 (-.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))
(fma.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))
(-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2))) (cos.f64 phi1)))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64))))))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (neg.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))
(+.f64 (fma.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 phi2) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2))
(.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))
(.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)))
(.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))))
(.f64 (fabs.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (fabs.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(.f64 (sin.f64 (neg.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (neg.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64))))))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))
(.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))) (-.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))))))
(fma.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(fma.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(-.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (neg.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
(-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))
(+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))))) (sin.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) phi2))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))
(sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64)))
(sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 phi1 #s(literal 1/2 binary64))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (cos.f64 (/.f64 phi2 #s(literal -2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (/.f64 (neg.f64 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (cos.f64 (/.f64 phi1 #s(literal -2 binary64)))) (.f64 (cos.f64 (/.f64 phi2 #s(literal -2 binary64))) (sin.f64 (/.f64 phi1 #s(literal -2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))))
(-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi1 #s(literal 1/2 binary64))))
(+.f64 (.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (cos.f64 (/.f64 phi2 #s(literal -2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))))
(.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(/.f64 (-.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (fma.f64 (fabs.f64 phi2) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 (fabs.f64 phi2) #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (fabs.f64 phi2) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (+.f64 (fma.f64 (fabs.f64 phi2) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (neg.f64 (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))))) (sin.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (neg.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (fabs.f64 (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))))) (sin.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fabs.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(sin.f64 (+.f64 (neg.f64 (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (fabs.f64 phi2) #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi2)))
(fma.f64 (sin.f64 (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))) #s(literal 0 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 0 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 0 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1 binary64)))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(cos.f64 (neg.f64 (neg.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (fabs.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))))
(cos.f64 (fabs.f64 (neg.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))))
(cos.f64 (fabs.f64 (fabs.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))))
(cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 (neg.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))))
(cos.f64 (fabs.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))))
(cos.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 0 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 0 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1 binary64)))
(*.f64 #s(literal -1/2 binary64) phi2)
(*.f64 phi2 #s(literal -1/2 binary64))
(neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1/2 binary64))
(.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (fabs.f64 phi1) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (fma.f64 (fabs.f64 phi1) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (fma.f64 phi1 #s(literal -1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (fma.f64 (fabs.f64 phi1) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (fma.f64 (fabs.f64 phi1) #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (neg.f64 (.f64 phi1 #s(literal -1/2 binary64))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (neg.f64 (*.f64 phi1 #s(literal -1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (neg.f64 (.f64 (fabs.f64 phi1) #s(literal 1/2 binary64))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (neg.f64 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (fabs.f64 (.f64 (fabs.f64 phi1) #s(literal 1/2 binary64))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (fabs.f64 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))
(+.f64 (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))
(.f64 (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(fabs.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))
(exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) #s(literal 1 binary64))) #s(literal 1 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) (-.f64 #s(literal 1 binary64) (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (-.f64 (.f64 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) (.f64 #s(literal 1 binary64) (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (fma.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(neg.f64 (-.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1 binary64)))
(-.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))
(-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))
(+.f64 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))

eval833.0ms (1.9%)

Memory: -14.1MiB live, 692.2MiB allocated; 142ms collecting garbage
Compiler: Compiled 108 970 to 22 730 computations (79.1% saved)

prune576.0ms (1.3%)

Memory

7.6MiB live, 1 253.9MiB allocated; 75ms collecting garbage

Pruning

191 alts after pruning (190 fresh and 1 done)

	Pruned	Kept	Total
New	2 234	94	2 328
Fresh	65	96	161
Picked	4	1	5
Done	0	0	0
Total	2 303	191	2 494

Accuracy

99.3%

Counts

2 494 → 191

Alt Table

Click to see full alt table

Status	Accuracy	Program
	52.7%	(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
▶	20.7%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
	52.7%	(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
	37.3%	(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
	31.9%	(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
	40.2%	(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
	38.1%	(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)) R)
	40.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	20.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	53.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
	31.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
	52.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
	52.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	75.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))))
	78.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	98.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
	78.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	78.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	71.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	78.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	24.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (-.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (-.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	60.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	98.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
	98.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
	75.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
▶	98.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
	71.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
	52.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	61.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	62.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	42.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	55.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	49.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	48.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	62.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	67.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
	51.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))
	47.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))))))))
	75.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
	68.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))))))))))
	70.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))))))))))
	57.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
▶	56.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	59.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	78.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	52.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	42.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
	57.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	44.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	43.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
▶	45.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	44.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	41.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	41.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	47.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	70.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))))))
	76.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))
	59.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	60.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	34.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	35.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
	35.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
	47.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
	40.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	47.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	59.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	60.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fabs.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
	42.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
	56.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	49.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	51.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	40.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	38.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	37.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	45.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	42.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	52.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	36.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
▶	40.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
	52.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	50.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	52.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	50.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	42.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	46.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
	46.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	46.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	33.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	46.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	33.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	33.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	46.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
	47.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
	46.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
	28.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
	29.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
	38.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
	35.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	44.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	33.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	27.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
	39.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
	32.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
	38.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
	42.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
	28.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	43.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	32.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	25.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	37.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	47.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	37.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	66.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (+.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	98.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
	72.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
	69.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	30.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	53.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
	57.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	58.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	98.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	60.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	51.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
	53.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
	46.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	42.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
	45.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	54.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	43.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
✓	55.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	43.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
	49.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	38.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	43.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) #s(literal 1/2 binary64))))))
	34.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
	28.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	28.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	54.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (fma.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 phi2) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (fma.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 phi2) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))))))
	32.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
	36.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	40.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	39.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	34.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	34.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	42.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
	21.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	17.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	13.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	42.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
	45.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
	45.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))))
	34.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	34.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	23.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
	28.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
	23.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))))
	23.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
	29.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	22.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	32.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	32.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	28.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	27.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	45.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64))))))))))
	45.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
	43.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
	39.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	19.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	36.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	14.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	45.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	42.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	15.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	34.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	30.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	24.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	23.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	38.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
	40.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
	39.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	20.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	57.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))))
	46.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	37.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	45.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	34.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	24.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	39.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	20.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	34.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	18.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))

Compiler

Compiled 30 626 to 18 479 computations (39.7% saved)

series1.0s (2.4%)

Memory

100.7MiB live, 1 861.5MiB allocated; 403ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	5235	91995

Stop Event

1×	iter-limit

Counts

124 → 1 015

Calls

Call 1

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

Outputs
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx R R)
#s(approx (* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* 2 R) (*.f64 #s(literal 2 binary64) R))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal -1/24 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (-.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal -1/48 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (-.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal -1/24 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (-.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal -1/24 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (-.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal -1/24 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (-.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal -1/48 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (-.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal -1/24 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (-.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))
#s(approx (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))
#s(approx (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal -1/24 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (-.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))
#s(approx (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal -1/48 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (-.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal -1/24 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (-.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))
#s(approx (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))
#s(approx (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal -1/24 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/48 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal -1/24 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (.f64 #s(literal 2 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (/.f64 (+.f64 lambda1 (.f64 #s(literal 2 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) lambda1))
#s(approx (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) lambda1))
#s(approx (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/192 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (fma.f64 #s(literal -1/24 binary64) (-.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 #s(literal 1/960 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) lambda1))
#s(approx (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))) lambda1))
#s(approx (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/192 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (fma.f64 #s(literal -1/24 binary64) (-.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 #s(literal 1/960 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))) lambda1))
#s(approx (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/192 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/23040 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (fma.f64 #s(literal -1/24 binary64) (-.f64 (.f64 #s(literal 1/192 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (fma.f64 #s(literal -1/24 binary64) (-.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 #s(literal 1/960 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (fma.f64 #s(literal -1/161280 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/1920 binary64) (-.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))) (fma.f64 #s(literal -1/24 binary64) (-.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 #s(literal 1/960 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))) lambda1))
#s(approx (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (fma.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal 1/384 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
#s(approx (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 #s(literal 1/384 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))
#s(approx (cos (* lambda1 -1/2)) #s(literal 1 binary64))
#s(approx (cos (* lambda1 -1/2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (cos (* lambda1 -1/2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/384 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/8 binary64)))))
#s(approx (cos (* lambda1 -1/2)) (+.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/384 binary64) (*.f64 #s(literal -1/46080 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/8 binary64)))))
#s(approx (* lambda1 -1/2) (*.f64 #s(literal -1/2 binary64) lambda1))
#s(approx lambda1 lambda1)
#s(approx (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))
#s(approx (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))) (.f64 lambda1 (fma.f64 #s(literal -1/48 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))
#s(approx (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal 1/3840 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))
#s(approx (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/645120 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 #s(literal 1/3840 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
#s(approx (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (.f64 lambda1 (fma.f64 #s(literal -1/48 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))
#s(approx (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/3840 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))))
#s(approx (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/645120 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/3840 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))))))
#s(approx (sin (* lambda1 1/2)) (*.f64 #s(literal 1/2 binary64) lambda1))
#s(approx (sin (* lambda1 1/2)) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (sin (* lambda1 1/2)) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/3840 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/48 binary64))))))
#s(approx (sin (* lambda1 1/2)) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/3840 binary64) (.f64 #s(literal -1/645120 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/48 binary64))))))
#s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
#s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))
#s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))
#s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal -1/48 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))))
#s(approx (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/384 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))
#s(approx (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/384 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal -1/24 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (-.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal -1/24 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (-.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal -1/48 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (-.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal -1/24 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (-.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal -1/24 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (-.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal -1/48 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (-.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal -1/24 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (-.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/12 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1)) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1)) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1)) (fma.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1)) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 #s(literal -1/4 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))))))
#s(approx (cos (* 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (cos (* 2 (* (- lambda2 lambda1) -1/2))) (+.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 (cos (* 2 (* (- lambda2 lambda1) -1/2))) (+.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 (* 2 (* (- lambda2 lambda1) -1/2))) (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))))) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* 2 (* (- lambda2 lambda1) -1/2)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (* 2 (* (- lambda2 lambda1) -1/2)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (* (- lambda2 lambda1) -1/2) (*.f64 #s(literal -1/2 binary64) lambda2))
#s(approx (* (- lambda2 lambda1) -1/2) (fma.f64 #s(literal -1/2 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) lambda1)))
#s(approx (- lambda2 lambda1) lambda2)
#s(approx (- lambda2 lambda1) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (- (* 1/2 (PI)) phi2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 lambda1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (fma.f64 lambda1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))
#s(approx (sin (* 1/2 (- lambda1 lambda2))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (sin (* 1/2 (- lambda1 lambda2))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))
#s(approx (sin (* 1/2 (- lambda1 lambda2))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal -1/48 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (atan2.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))))
#s(approx (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))))))
#s(approx (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))))))))
#s(approx (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))))
#s(approx (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/16 binary64) (.f64 lambda1 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))))))
#s(approx (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/16 binary64) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 #s(literal -1/96 binary64) (.f64 lambda1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))) (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))) (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))))))))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (fma.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda1 (cos.f64 lambda2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))) #s(literal 1/2 binary64)))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (cos.f64 lambda2) (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (sin.f64 lambda2)))))))) #s(literal 1/2 binary64)))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (sin.f64 lambda2)))))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda1 (cos.f64 lambda2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (cos.f64 lambda2) (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (sin.f64 lambda2)))))))))
#s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda2))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2))))))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (sin.f64 lambda2))))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))
#s(approx (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))
#s(approx (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))
#s(approx (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))
#s(approx (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))
#s(approx (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))
#s(approx (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))
#s(approx (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))
#s(approx (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (cos (* lambda1 -1/2)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
#s(approx (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
#s(approx (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))
#s(approx (sin (* lambda1 1/2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))
#s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))
#s(approx (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))
#s(approx (cos (* lambda1 1/2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1)) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1)))))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))))
#s(approx (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1)))))
#s(approx (cos (* 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))
#s(approx (* 2 (* (- lambda2 lambda1) -1/2)) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (* (- lambda2 lambda1) -1/2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))
#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 (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (- (* 1/2 (PI)) phi2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))
#s(approx (sin (* 1/2 (- lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))
#s(approx (cos (- lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1)))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))
#s(approx (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1)) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (cos (* 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (* 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (* (- lambda2 lambda1) -1/2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))
#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 (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (- (* 1/2 (PI)) phi2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))
#s(approx (sin (* 1/2 (- lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 1/2 binary64)))))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 1/2 binary64))))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (atan2.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 1/2 binary64)))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 1/2 binary64)))))))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 1/2 binary64)))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (cos (- lambda2 lambda1)) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))))
#s(approx (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal 1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal 1/16 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (-.f64 (.f64 #s(literal 1/48 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 #s(literal 1/16 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal 1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal 1/16 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (-.f64 (.f64 #s(literal 1/48 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 #s(literal 1/16 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
#s(approx (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))
#s(approx (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))
#s(approx (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal 1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal 1/16 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (-.f64 (.f64 #s(literal 1/48 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 #s(literal 1/16 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))
#s(approx (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
#s(approx (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
#s(approx (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (.f64 lambda2 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/16 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (-.f64 (.f64 #s(literal 1/48 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 #s(literal 1/16 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))
#s(approx (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))
#s(approx (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/48 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 #s(literal 1/16 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))
#s(approx (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/48 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/3840 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (fma.f64 #s(literal -1/8 binary64) (-.f64 (.f64 #s(literal 1/48 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 #s(literal 1/16 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 #s(literal -1/768 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (.f64 #s(literal 1/16 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))
#s(approx (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))
#s(approx (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/48 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 #s(literal 1/16 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))
#s(approx (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/48 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/3840 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (fma.f64 #s(literal -1/8 binary64) (-.f64 (.f64 #s(literal 1/48 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 #s(literal 1/16 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 #s(literal -1/768 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (.f64 #s(literal 1/16 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))
#s(approx (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/48 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/3840 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/645120 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (fma.f64 #s(literal -1/8 binary64) (-.f64 (.f64 #s(literal -1/3840 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (fma.f64 #s(literal -1/8 binary64) (-.f64 (.f64 #s(literal 1/48 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 #s(literal 1/16 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 #s(literal -1/768 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 #s(literal 1/92160 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/384 binary64) (-.f64 (.f64 #s(literal 1/48 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 #s(literal 1/16 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))) (fma.f64 #s(literal -1/8 binary64) (-.f64 (.f64 #s(literal 1/48 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 #s(literal 1/16 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 #s(literal -1/768 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (.f64 #s(literal 1/16 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))
#s(approx (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))))))
#s(approx (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (.f64 #s(literal 1/48 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))))))))
#s(approx (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3840 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))))) (.f64 #s(literal 1/48 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1))))))))))
#s(approx (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/48 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3840 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (.f64 #s(literal 1/645120 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))))))))))))
#s(approx (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/48 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
#s(approx (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3840 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/48 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))))
#s(approx (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/48 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3840 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/645120 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))))))
#s(approx (* (sin (* lambda2 -1/2)) (cos phi2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 phi2))))
#s(approx (* (sin (* lambda2 -1/2)) (cos phi2)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 #s(literal 1/48 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2))))))
#s(approx (* (sin (* lambda2 -1/2)) (cos phi2)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3840 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2)) (.f64 #s(literal 1/48 binary64) (cos.f64 phi2)))))))
#s(approx (* (sin (* lambda2 -1/2)) (cos phi2)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/48 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3840 binary64) (cos.f64 phi2) (.f64 #s(literal 1/645120 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2))))))))))
#s(approx (sin (* lambda2 -1/2)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sin (* lambda2 -1/2)) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/48 binary64) (*.f64 #s(literal -1/3840 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
#s(approx (sin (* lambda2 -1/2)) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/48 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/645120 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/3840 binary64))))) #s(literal 1/2 binary64))))
#s(approx (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))) (fma.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
#s(approx (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 #s(literal 1/384 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
#s(approx (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 #s(literal 1/384 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))))
#s(approx (cos (* lambda2 -1/2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (cos (* lambda2 -1/2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/384 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/8 binary64)))))
#s(approx (cos (* lambda2 -1/2)) (+.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/384 binary64) (*.f64 #s(literal -1/46080 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/8 binary64)))))
#s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))
#s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))
#s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal 1/48 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))
#s(approx (* lambda2 1/2) (*.f64 #s(literal 1/2 binary64) lambda2))
#s(approx (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))
#s(approx (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal 1/48 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))
#s(approx (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3840 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/48 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))
#s(approx (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3840 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal 1/645120 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal 1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal 1/16 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (-.f64 (.f64 #s(literal 1/48 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 #s(literal 1/16 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal 1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal 1/16 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (-.f64 (.f64 #s(literal 1/48 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 #s(literal 1/16 binary64) (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1))))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1)) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1))))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (sin.f64 lambda1))) (.f64 #s(literal -1/4 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))
#s(approx (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))
#s(approx (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 lambda1) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (sin.f64 lambda1)))))
#s(approx (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda2 (cos.f64 lambda1)) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda1))))))
#s(approx (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (sin.f64 lambda1)))))))))
#s(approx (cos (* 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1))
#s(approx (cos (* 2 (* (- lambda2 lambda1) -1/2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (cos (* 2 (* (- lambda2 lambda1) -1/2))) (+.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 (* 2 (* (- lambda2 lambda1) -1/2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1))))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (- lambda2 lambda1) (-.f64 lambda2 lambda1))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))) (.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (- (* 1/2 (PI)) phi2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 lambda2 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))))
#s(approx (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))))
#s(approx (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))))))
#s(approx (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))))
#s(approx (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 #s(literal -1/16 binary64) (.f64 lambda2 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))))))
#s(approx (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda2 (fma.f64 #s(literal -1/16 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 #s(literal 1/96 binary64) (.f64 lambda2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda1)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)))))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)))))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda1)) (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda1)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda1)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)))))))))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1)))) (.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1)))) (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64))))))))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (neg.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1)))) #s(literal 1/2 binary64)))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda1)) (.f64 #s(literal -1/4 binary64) (*.f64 lambda2 (cos.f64 (neg.f64 lambda1))))))) #s(literal 1/2 binary64)))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 lambda1)) (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (sin.f64 (neg.f64 lambda1))))))))) #s(literal 1/2 binary64)))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1))))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (neg.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1)))))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda1)) (.f64 #s(literal -1/4 binary64) (*.f64 lambda2 (cos.f64 (neg.f64 lambda1))))))))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 lambda1)) (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (sin.f64 (neg.f64 lambda1))))))))))
#s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1)))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 (neg.f64 lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (neg.f64 lambda1))))))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 (neg.f64 lambda1)) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 (neg.f64 lambda1)))) (sin.f64 (neg.f64 lambda1))))))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 (neg.f64 lambda1)) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (sin.f64 (neg.f64 lambda1)))))) (sin.f64 (neg.f64 lambda1))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))
#s(approx (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
#s(approx (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
#s(approx (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 lambda2 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
#s(approx (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (* (sin (* lambda2 -1/2)) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))
#s(approx (cos (* lambda2 -1/2)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
#s(approx (cos (* lambda2 1/2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))
#s(approx (* 2 (* (- lambda2 lambda1) -1/2)) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (* (- lambda2 lambda1) -1/2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
#s(approx (- lambda2 lambda1) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))
#s(approx (* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1)) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (cos (* 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (* (- lambda2 lambda1) -1/2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (- lambda2 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (- (* 1/2 (PI)) phi2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)))
#s(approx (sin (* 1/2 (- lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) #s(literal 1/2 binary64)))))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))) #s(literal 1/2 binary64))))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (atan2.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) #s(literal 1/2 binary64)))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) #s(literal 1/2 binary64)))))))
#s(approx (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) #s(literal 1/2 binary64)))
#s(approx (* (cos (- lambda2 lambda1)) 1/2) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)))))
#s(approx (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi1 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))
#s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi1 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (.f64 #s(literal -1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))
#s(approx (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))
#s(approx (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (-.f64 (.f64 phi1 (fma.f64 #s(literal 1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))
#s(approx (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (-.f64 (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (-.f64 (.f64 #s(literal -1/48 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
#s(approx (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))
#s(approx (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (.f64 phi1 (fma.f64 #s(literal -1/48 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
#s(approx (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/3840 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))))
#s(approx (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/645120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/3840 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))))))
#s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1))
#s(approx (sin (* 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (sin (* 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/3840 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/48 binary64))))))
#s(approx (sin (* 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/3840 binary64) (.f64 #s(literal -1/645120 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/48 binary64))))))
#s(approx phi1 phi1)
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal 1/384 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))))
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/384 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))))
#s(approx (cos (* 1/2 phi1)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (cos (* 1/2 phi1)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/384 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/8 binary64)))))
#s(approx (cos (* 1/2 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/384 binary64) (*.f64 #s(literal -1/46080 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/8 binary64)))))
#s(approx (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))
#s(approx (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
#s(approx (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))))))
#s(approx (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))))))))
#s(approx (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))
#s(approx (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
#s(approx (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))))))
#s(approx (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))))))))
#s(approx (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))
#s(approx (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
#s(approx (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))
#s(approx (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))
#s(approx (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
#s(approx (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
#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)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))
#s(approx (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
#s(approx (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))
#s(approx (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))))
#s(approx (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))
#s(approx (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))
#s(approx (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))
#s(approx (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
#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)) (fma.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)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))))
#s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1)))))) #s(literal 1/48 binary64))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))))
#s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/1440 binary64) (.f64 #s(literal -1/720 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))))))) #s(literal 1/48 binary64))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1)))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1)))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1)))))) (.f64 #s(literal 1/24 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
#s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))
#s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))))
#s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal -1/48 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))))))
#s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))
#s(approx (/ (- phi1 phi2) 2) (fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) phi1)))
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (- phi1 phi2) (-.f64 phi1 phi2))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.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 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal 1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal 1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal 1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
#s(approx (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))
#s(approx (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))
#s(approx (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 phi1 (fma.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 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal 1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))))
#s(approx (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) (.f64 #s(literal 2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) (fma.f64 #s(literal 2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))
#s(approx (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) (fma.f64 #s(literal 2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))
#s(approx (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) (fma.f64 #s(literal 2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal 1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))))
#s(approx (sin (- (- (* (PI) 1/2) phi2) phi1)) (+.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 (- (- (* (PI) 1/2) phi2) phi1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (fma.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 (- (- (* (PI) 1/2) phi2) phi1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
#s(approx (- (- (* (PI) 1/2) phi2) phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))
#s(approx (- (- (* (PI) 1/2) phi2) phi1) (-.f64 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))
#s(approx (sin (+ (- (* (PI) 1/2) phi2) phi1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (sin (+ (- (* (PI) 1/2) phi2) phi1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (+.f64 (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 (+ (- (* (PI) 1/2) phi2) phi1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
#s(approx (+ (- (* (PI) 1/2) phi2) phi1) (-.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 phi1 (sin.f64 phi2)) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) (.f64 phi1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 phi2) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi2))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) (.f64 phi1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 phi2) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/12 binary64) (sin.f64 phi2)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi2))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi2))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi2))))) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi2) (.f64 #s(literal -1/12 binary64) (.f64 phi1 (sin.f64 phi2))))))) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2))))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2)))))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi2) (.f64 #s(literal -1/12 binary64) (.f64 phi1 (sin.f64 phi2))))))))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))
#s(approx (* (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2))))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi2) (.f64 #s(literal -1/12 binary64) (.f64 phi1 (sin.f64 phi2)))))))))
#s(approx (cos (- phi2 phi1)) (+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2))))
#s(approx (cos (- phi2 phi1)) (+.f64 (cos.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 phi2))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))))))
#s(approx (cos (- phi2 phi1)) (+.f64 (cos.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2))))) (*.f64 #s(literal -1 binary64) (sin.f64 phi2))))))
#s(approx (- phi2 phi1) phi2)
#s(approx (- phi2 phi1) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi1 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
#s(approx (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
#s(approx (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
#s(approx (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
#s(approx (sin (* 1/2 phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
#s(approx (cos (* 1/2 phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (* (cos phi2) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
#s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
#s(approx (/ (- phi1 phi2) 2) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 phi2 phi1)))))
#s(approx (- phi1 phi2) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 phi2 phi1)))))
#s(approx (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 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 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))
#s(approx (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))
#s(approx (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 phi2))))
#s(approx (- (- (* (PI) 1/2) phi2) phi1) (*.f64 #s(literal -1 binary64) phi1))
#s(approx (- (- (* (PI) 1/2) phi2) phi1) (.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)) (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))))
#s(approx (sin (+ (- (* (PI) 1/2) phi2) phi1)) (sin.f64 (-.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))
#s(approx (+ (- (* (PI) 1/2) phi2) phi1) (.f64 phi1 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))) (/.f64 phi2 phi1))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))
#s(approx (cos (- phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))
#s(approx (- phi2 phi1) (*.f64 phi1 (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64))))
#s(approx (* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))
#s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))
#s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
#s(approx (- phi1 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (atan2.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64))))
#s(approx (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))
#s(approx (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))
#s(approx (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin.f64 (-.f64 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))
#s(approx (- (- (* (PI) 1/2) phi2) phi1) (.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 (+ (- (* (PI) 1/2) phi2) phi1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))
#s(approx (+ (- (* (PI) 1/2) phi2) phi1) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) phi1)) #s(literal 1 binary64)))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))
#s(approx (cos (- phi2 phi1)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))
#s(approx (- phi2 phi1) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))
#s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
#s(approx (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (-.f64 (.f64 #s(literal -1/8 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
#s(approx (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal 1/48 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
#s(approx (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
#s(approx (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal 1/384 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))
#s(approx (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/46080 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/384 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))))
#s(approx (cos (* phi2 -1/2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (cos (* phi2 -1/2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/384 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/8 binary64)))))
#s(approx (cos (* phi2 -1/2)) (+.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/384 binary64) (*.f64 #s(literal -1/46080 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/8 binary64)))))
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (.f64 phi2 (fma.f64 #s(literal -1/48 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal 1/3840 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))
#s(approx (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/645120 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/3840 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))))
#s(approx (sin (* 1/2 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))
#s(approx (sin (* 1/2 phi2)) (.f64 phi2 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (sin (* 1/2 phi2)) (.f64 phi2 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/3840 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/48 binary64))))))
#s(approx (sin (* 1/2 phi2)) (.f64 phi2 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/3840 binary64) (.f64 #s(literal -1/645120 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/48 binary64))))))
#s(approx (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))
#s(approx (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
#s(approx (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))))))
#s(approx (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))))))))
#s(approx (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))
#s(approx (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
#s(approx (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))))))
#s(approx (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))))))))
#s(approx (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))
#s(approx (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
#s(approx (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))
#s(approx (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))
#s(approx (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))
#s(approx (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
#s(approx (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
#s(approx (* (sin (* lambda2 -1/2)) (cos phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (* (sin (* lambda2 -1/2)) (cos phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))
#s(approx (* (sin (* lambda2 -1/2)) (cos phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/24 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
#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)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))
#s(approx (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
#s(approx (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))
#s(approx (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))))
#s(approx (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))
#s(approx (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))
#s(approx (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (fma.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))
#s(approx (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (fma.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
#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)) (fma.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)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))))))))))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal -1/8 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))
#s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal 1/48 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))))
#s(approx (- phi1 phi2) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))
#s(approx (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (- (* 1/2 (PI)) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))
#s(approx (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))
#s(approx (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (- (* 1/2 (PI)) phi2) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (- (* 1/2 (PI)) phi2) (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.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)) phi1)))))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi1 (.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)) phi1)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (-.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.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)) phi1)))))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.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)) phi1)))))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.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)) phi1))))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.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)) phi1))))) (.f64 phi2 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi1 (.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)) phi1))))))))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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))))))
#s(approx (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))))))
#s(approx (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.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)) phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))
#s(approx (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi1 (.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)) phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.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)) phi1))))))))))))
#s(approx (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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))))))
#s(approx (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.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 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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)))))))
#s(approx (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.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)) phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))
#s(approx (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi1 (.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)) phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.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)) phi1))))))))))))
#s(approx (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.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)))))
#s(approx (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.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 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (fma.f64 #s(literal 1/2 binary64) (+.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 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.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)) phi1))))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))
#s(approx (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (fma.f64 #s(literal 1/2 binary64) (+.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 phi2 (fma.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (fma.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi1 (.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)) phi1))))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.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)) phi1)))))))))))
#s(approx (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) (+.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))))
#s(approx (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))
#s(approx (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.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)) phi1)))))))))))
#s(approx (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi1 (.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)) phi1))))))))))))))
#s(approx (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
#s(approx (sin (- (- (* (PI) 1/2) phi2) phi1)) (+.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 (- (- (* (PI) 1/2) phi2) phi1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.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 (- (- (* (PI) 1/2) phi2) phi1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.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 (- (- (* (PI) 1/2) phi2) phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
#s(approx (- (- (* (PI) 1/2) phi2) phi1) (-.f64 (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))
#s(approx (sin (+ (- (* (PI) 1/2) phi2) phi1)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ (- (* (PI) 1/2) phi2) phi1)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi2 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (+ (- (* (PI) 1/2) phi2) phi1)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ (- (* (PI) 1/2) phi2) phi1)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (- (* (PI) 1/2) phi2) phi1) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (- (* (PI) 1/2) phi2) phi1) (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 phi2 (sin.f64 (neg.f64 phi1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (neg.f64 phi1)) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi1)))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (neg.f64 phi1)) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (.f64 #s(literal 1/12 binary64) (sin.f64 (neg.f64 phi1))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi1)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi1)))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi1)))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (neg.f64 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi1)))))) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi1)) (.f64 #s(literal 1/12 binary64) (.f64 phi2 (sin.f64 (neg.f64 phi1)))))))) (.f64 (cos.f64 phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (neg.f64 phi1))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1))))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi1)) (.f64 #s(literal -1/4 binary64) (*.f64 phi2 (cos.f64 (neg.f64 phi1)))))))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi1)) (.f64 #s(literal 1/12 binary64) (.f64 phi2 (sin.f64 (neg.f64 phi1)))))))))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (neg.f64 phi1))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi1)) (.f64 #s(literal -1/4 binary64) (*.f64 phi2 (cos.f64 (neg.f64 phi1))))))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi1)) (.f64 #s(literal 1/12 binary64) (.f64 phi2 (sin.f64 (neg.f64 phi1))))))))))
#s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1)))
#s(approx (cos (- phi2 phi1)) (+.f64 (cos.f64 (neg.f64 phi1)) (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 (neg.f64 phi1))))))
#s(approx (cos (- phi2 phi1)) (+.f64 (cos.f64 (neg.f64 phi1)) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 (cos.f64 (neg.f64 phi1)))) (sin.f64 (neg.f64 phi1))))))
#s(approx (cos (- phi2 phi1)) (+.f64 (cos.f64 (neg.f64 phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (sin.f64 (neg.f64 phi1)))))) (sin.f64 (neg.f64 phi1))))))
#s(approx (- phi2 phi1) (-.f64 phi2 phi1))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
#s(approx (cos (* phi2 -1/2)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
#s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))
#s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64))))
#s(approx (- (* 1/2 (PI)) phi2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)) #s(literal 1 binary64))))
#s(approx (- (- (* (PI) 1/2) phi2) phi1) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)) (+.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
#s(approx (+ (- (* (PI) 1/2) phi2) phi1) (*.f64 phi2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2) (/.f64 phi1 phi2)) #s(literal 1 binary64))))
#s(approx (- phi2 phi1) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 phi1 phi2)))))
#s(approx (* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))
#s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2))))))
#s(approx (- phi1 phi2) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2))))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (- (* 1/2 (PI)) phi2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (* 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi2))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (atan2.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))
#s(approx (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.f64 (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))
#s(approx (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))
#s(approx (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) (+.f64 (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))
#s(approx (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin.f64 (-.f64 (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))
#s(approx (- (- (* (PI) 1/2) phi2) phi1) (.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 (+ (- (* (PI) 1/2) phi2) phi1)) (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (- (* (PI) 1/2) phi2) phi1) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))
#s(approx (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (* (cos (- phi2 phi1)) 1/2) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2))))))
#s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))
#s(approx (- phi2 phi1) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)))))

Calls

15 calls:

Time	Variable		Point	Expression
177.0ms	phi2	@	0	((* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))))))) R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))))) 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))))) (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (cos (* phi2 -1/2)) (* phi2 -1/2) phi2 -1/2 (sin (* 1/2 phi1)) (* 1/2 phi1) 1/2 phi1 (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin (* 1/2 phi2)) (* 1/2 phi2) (cos (* 1/2 phi1)) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (* (sin (* lambda2 -1/2)) (cos phi2)) (sin (* lambda2 -1/2)) (* lambda2 -1/2) lambda2 (cos phi2) (cos phi1) (cos (* lambda1 -1/2)) (* lambda1 -1/2) lambda1 (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))) (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2)) (* lambda1 1/2) (cos (* lambda2 -1/2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (cos (* lambda2 1/2)) (* lambda2 1/2) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))) (cos (* lambda1 1/2)) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (* 2 R)) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (sin (* 1/2 phi1)) (* phi1 1/2) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1)) (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2)))) (cos (* 2 (* (- lambda2 lambda1) -1/2))) (* 2 (* (- lambda2 lambda1) -1/2)) (* (- lambda2 lambda1) -1/2) (- lambda2 lambda1) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* 2 R) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (- phi1 phi2) 2)) 2) (sin (/ (- phi1 phi2) 2)) (/ (- phi1 phi2) 2) (- phi1 phi2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (- (* 1/2 (PI)) phi2))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (* 1/2 (- lambda1 lambda2))) (* 1/2 (- lambda1 lambda2)) (- lambda1 lambda2) (sin (- (* 1/2 (PI)) phi2)) (- (* 1/2 (PI)) phi2) (* 1/2 (PI)) (PI) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) (sin (- (- (* (PI) 1/2) phi2) phi1)) (- (- (* (PI) 1/2) phi2) phi1) (- (* (PI) 1/2) phi2) (* (PI) 1/2) (sin (+ (- (* (PI) 1/2) phi2) phi1)) (+ (- (* (PI) 1/2) phi2) phi1) (sin (/ (- lambda1 lambda2) 2)) (/ (- lambda1 lambda2) 2) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos (- lambda2 lambda1)) 1/2) (cos (- lambda2 lambda1)) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (* (cos (- phi2 phi1)) 1/2) (cos (- phi2 phi1)) (- phi2 phi1) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))
52.0ms	lambda2	@	0	((* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))))))) R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))))) 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))))) (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (cos (* phi2 -1/2)) (* phi2 -1/2) phi2 -1/2 (sin (* 1/2 phi1)) (* 1/2 phi1) 1/2 phi1 (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin (* 1/2 phi2)) (* 1/2 phi2) (cos (* 1/2 phi1)) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (* (sin (* lambda2 -1/2)) (cos phi2)) (sin (* lambda2 -1/2)) (* lambda2 -1/2) lambda2 (cos phi2) (cos phi1) (cos (* lambda1 -1/2)) (* lambda1 -1/2) lambda1 (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))) (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2)) (* lambda1 1/2) (cos (* lambda2 -1/2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (cos (* lambda2 1/2)) (* lambda2 1/2) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))) (cos (* lambda1 1/2)) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (* 2 R)) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (sin (* 1/2 phi1)) (* phi1 1/2) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1)) (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2)))) (cos (* 2 (* (- lambda2 lambda1) -1/2))) (* 2 (* (- lambda2 lambda1) -1/2)) (* (- lambda2 lambda1) -1/2) (- lambda2 lambda1) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* 2 R) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (- phi1 phi2) 2)) 2) (sin (/ (- phi1 phi2) 2)) (/ (- phi1 phi2) 2) (- phi1 phi2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (- (* 1/2 (PI)) phi2))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (* 1/2 (- lambda1 lambda2))) (* 1/2 (- lambda1 lambda2)) (- lambda1 lambda2) (sin (- (* 1/2 (PI)) phi2)) (- (* 1/2 (PI)) phi2) (* 1/2 (PI)) (PI) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) (sin (- (- (* (PI) 1/2) phi2) phi1)) (- (- (* (PI) 1/2) phi2) phi1) (- (* (PI) 1/2) phi2) (* (PI) 1/2) (sin (+ (- (* (PI) 1/2) phi2) phi1)) (+ (- (* (PI) 1/2) phi2) phi1) (sin (/ (- lambda1 lambda2) 2)) (/ (- lambda1 lambda2) 2) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos (- lambda2 lambda1)) 1/2) (cos (- lambda2 lambda1)) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (* (cos (- phi2 phi1)) 1/2) (cos (- phi2 phi1)) (- phi2 phi1) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))
42.0ms	lambda2	@	-inf	((* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))))))) R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))))) 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))))) (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (cos (* phi2 -1/2)) (* phi2 -1/2) phi2 -1/2 (sin (* 1/2 phi1)) (* 1/2 phi1) 1/2 phi1 (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin (* 1/2 phi2)) (* 1/2 phi2) (cos (* 1/2 phi1)) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (* (sin (* lambda2 -1/2)) (cos phi2)) (sin (* lambda2 -1/2)) (* lambda2 -1/2) lambda2 (cos phi2) (cos phi1) (cos (* lambda1 -1/2)) (* lambda1 -1/2) lambda1 (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))) (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2)) (* lambda1 1/2) (cos (* lambda2 -1/2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (cos (* lambda2 1/2)) (* lambda2 1/2) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))) (cos (* lambda1 1/2)) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (* 2 R)) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (sin (* 1/2 phi1)) (* phi1 1/2) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1)) (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2)))) (cos (* 2 (* (- lambda2 lambda1) -1/2))) (* 2 (* (- lambda2 lambda1) -1/2)) (* (- lambda2 lambda1) -1/2) (- lambda2 lambda1) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* 2 R) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (- phi1 phi2) 2)) 2) (sin (/ (- phi1 phi2) 2)) (/ (- phi1 phi2) 2) (- phi1 phi2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (- (* 1/2 (PI)) phi2))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (* 1/2 (- lambda1 lambda2))) (* 1/2 (- lambda1 lambda2)) (- lambda1 lambda2) (sin (- (* 1/2 (PI)) phi2)) (- (* 1/2 (PI)) phi2) (* 1/2 (PI)) (PI) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) (sin (- (- (* (PI) 1/2) phi2) phi1)) (- (- (* (PI) 1/2) phi2) phi1) (- (* (PI) 1/2) phi2) (* (PI) 1/2) (sin (+ (- (* (PI) 1/2) phi2) phi1)) (+ (- (* (PI) 1/2) phi2) phi1) (sin (/ (- lambda1 lambda2) 2)) (/ (- lambda1 lambda2) 2) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos (- lambda2 lambda1)) 1/2) (cos (- lambda2 lambda1)) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (* (cos (- phi2 phi1)) 1/2) (cos (- phi2 phi1)) (- phi2 phi1) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))
42.0ms	lambda1	@	inf	((* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))))))) R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))))) 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))))) (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (cos (* phi2 -1/2)) (* phi2 -1/2) phi2 -1/2 (sin (* 1/2 phi1)) (* 1/2 phi1) 1/2 phi1 (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin (* 1/2 phi2)) (* 1/2 phi2) (cos (* 1/2 phi1)) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (* (sin (* lambda2 -1/2)) (cos phi2)) (sin (* lambda2 -1/2)) (* lambda2 -1/2) lambda2 (cos phi2) (cos phi1) (cos (* lambda1 -1/2)) (* lambda1 -1/2) lambda1 (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))) (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2)) (* lambda1 1/2) (cos (* lambda2 -1/2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (cos (* lambda2 1/2)) (* lambda2 1/2) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))) (cos (* lambda1 1/2)) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (* 2 R)) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (sin (* 1/2 phi1)) (* phi1 1/2) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1)) (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2)))) (cos (* 2 (* (- lambda2 lambda1) -1/2))) (* 2 (* (- lambda2 lambda1) -1/2)) (* (- lambda2 lambda1) -1/2) (- lambda2 lambda1) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* 2 R) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (- phi1 phi2) 2)) 2) (sin (/ (- phi1 phi2) 2)) (/ (- phi1 phi2) 2) (- phi1 phi2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (- (* 1/2 (PI)) phi2))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (* 1/2 (- lambda1 lambda2))) (* 1/2 (- lambda1 lambda2)) (- lambda1 lambda2) (sin (- (* 1/2 (PI)) phi2)) (- (* 1/2 (PI)) phi2) (* 1/2 (PI)) (PI) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) (sin (- (- (* (PI) 1/2) phi2) phi1)) (- (- (* (PI) 1/2) phi2) phi1) (- (* (PI) 1/2) phi2) (* (PI) 1/2) (sin (+ (- (* (PI) 1/2) phi2) phi1)) (+ (- (* (PI) 1/2) phi2) phi1) (sin (/ (- lambda1 lambda2) 2)) (/ (- lambda1 lambda2) 2) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos (- lambda2 lambda1)) 1/2) (cos (- lambda2 lambda1)) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (* (cos (- phi2 phi1)) 1/2) (cos (- phi2 phi1)) (- phi2 phi1) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))
40.0ms	phi2	@	-inf	((* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))))))) R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))))) 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))))) (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (cos (* phi2 -1/2)) (* phi2 -1/2) phi2 -1/2 (sin (* 1/2 phi1)) (* 1/2 phi1) 1/2 phi1 (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin (* 1/2 phi2)) (* 1/2 phi2) (cos (* 1/2 phi1)) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (* (sin (* lambda2 -1/2)) (cos phi2)) (sin (* lambda2 -1/2)) (* lambda2 -1/2) lambda2 (cos phi2) (cos phi1) (cos (* lambda1 -1/2)) (* lambda1 -1/2) lambda1 (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))) (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2)) (* lambda1 1/2) (cos (* lambda2 -1/2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (cos (* lambda2 1/2)) (* lambda2 1/2) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))) (cos (* lambda1 1/2)) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))))) (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (* 2 R)) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (sin (* 1/2 phi1)) (* phi1 1/2) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1)) (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2)))) (cos (* 2 (* (- lambda2 lambda1) -1/2))) (* 2 (* (- lambda2 lambda1) -1/2)) (* (- lambda2 lambda1) -1/2) (- lambda2 lambda1) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* 2 R) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (- phi1 phi2) 2)) 2) (sin (/ (- phi1 phi2) 2)) (/ (- phi1 phi2) 2) (- phi1 phi2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (- (* 1/2 (PI)) phi2))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (sin (* 1/2 (- lambda1 lambda2))) (* 1/2 (- lambda1 lambda2)) (- lambda1 lambda2) (sin (- (* 1/2 (PI)) phi2)) (- (* 1/2 (PI)) phi2) (* 1/2 (PI)) (PI) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))))) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))))) (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))))) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) (sin (- (- (* (PI) 1/2) phi2) phi1)) (- (- (* (PI) 1/2) phi2) phi1) (- (* (PI) 1/2) phi2) (* (PI) 1/2) (sin (+ (- (* (PI) 1/2) phi2) phi1)) (+ (- (* (PI) 1/2) phi2) phi1) (sin (/ (- lambda1 lambda2) 2)) (/ (- lambda1 lambda2) 2) (sqrt (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos (- lambda2 lambda1)) 1/2) (cos (- lambda2 lambda1)) (+ 1/2 (* (cos (- phi2 phi1)) 1/2)) (* (cos (- phi2 phi1)) 1/2) (cos (- phi2 phi1)) (- phi2 phi1) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (atan2 (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))

rewrite478.0ms (1.1%)

Memory

-6.2MiB live, 940.2MiB allocated; 92ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	147	3693
0	264	3182
1	1101	2680
2	5715	2680
0	9006	2622

Stop Event

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

Counts

124 → 2 135

Calls

Call 1

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

Outputs
(.f64 (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64))
(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) (+.f64 R R))
(.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))))
(.f64 #s(literal 2 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) R))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) #s(literal 2 binary64)))
(fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) R (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) R))
(fma.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))))
(+.f64 (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) R) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) R))
R
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))))) (-.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))))))
(fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) #s(literal 1 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))))
(-.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) (neg.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) #s(literal 1 binary64)) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))))
(+.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))
(.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))
(sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(fabs.f64 (neg.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))
(fabs.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))
(exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))))) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (.f64 (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (-.f64 (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (.f64 (.f64 (neg.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (.f64 (neg.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (neg.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 3 binary64))) (fma.f64 (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (.f64 (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (fma.f64 (.f64 (neg.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (.f64 (neg.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (neg.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (.f64 (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 (.f64 (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(neg.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))
(fma.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(fma.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(fma.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(fma.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(fma.f64 (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(fma.f64 (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(fma.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))) (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (.f64 (neg.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))))
(fma.f64 (.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(fma.f64 (.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(fma.f64 (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (.f64 (neg.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))) (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (neg.f64 (.f64 (neg.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))))
(fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(fma.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(fma.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (neg.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))) (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (.f64 (neg.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (neg.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))))
(-.f64 (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(-.f64 (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(+.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))
(+.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(+.f64 (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (neg.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (neg.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))) (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (neg.f64 (.f64 (neg.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))))
(+.f64 (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))
(.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))) (-.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (fma.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(neg.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))))))
(fma.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(fma.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(-.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (neg.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
(-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))
(+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))) (+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (neg.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))))
(-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))))
(.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (fma.f64 (fabs.f64 phi2) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 (fabs.f64 phi2) #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (fabs.f64 phi2) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (+.f64 (fma.f64 (fabs.f64 phi2) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (neg.f64 (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))))) (sin.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (neg.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (fabs.f64 (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))))) (sin.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fabs.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) phi2)))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi2))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (fabs.f64 phi2) #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi2)))
(fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))))
(cos.f64 (fabs.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))))
(cos.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(*.f64 #s(literal -1/2 binary64) phi2)
(*.f64 phi2 #s(literal -1/2 binary64))
(neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))
phi2
#s(literal -1/2 binary64)
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(*.f64 phi1 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) phi1)
(/.f64 (*.f64 phi1 #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) phi1) #s(literal 2 binary64))
(/.f64 (neg.f64 phi1) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))
(/.f64 phi1 #s(literal 2 binary64))
#s(literal 1/2 binary64)
phi1
(.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1/2 binary64))
(.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (fabs.f64 phi1) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (fma.f64 (fabs.f64 phi1) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (fma.f64 phi1 #s(literal -1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (fma.f64 (fabs.f64 phi1) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (fma.f64 (fabs.f64 phi1) #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (neg.f64 (.f64 phi1 #s(literal -1/2 binary64))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (neg.f64 (*.f64 phi1 #s(literal -1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (neg.f64 (.f64 (fabs.f64 phi1) #s(literal 1/2 binary64))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (neg.f64 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (fabs.f64 (.f64 (fabs.f64 phi1) #s(literal 1/2 binary64))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (fabs.f64 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))
(+.f64 (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(*.f64 (neg.f64 phi2) #s(literal -1/2 binary64))
(*.f64 #s(literal 1/2 binary64) phi2)
(*.f64 #s(literal -1/2 binary64) (neg.f64 phi2))
(*.f64 phi2 #s(literal 1/2 binary64))
(/.f64 (*.f64 phi2 #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) phi2) #s(literal 2 binary64))
(/.f64 (neg.f64 phi2) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))
(/.f64 phi2 #s(literal 2 binary64))
(neg.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (fabs.f64 phi1) #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 phi1 #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (*.f64 phi1 #s(literal -1/2 binary64))))
(cos.f64 (neg.f64 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64))))
(cos.f64 (fabs.f64 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64))))
(cos.f64 (*.f64 phi1 #s(literal -1/2 binary64)))
(cos.f64 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(.f64 (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(.f64 (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(.f64 (.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(.f64 (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)))
(.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))
(.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))
(.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(/.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (-.f64 (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))
(fma.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))
(fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(fma.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))
(fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))
(fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(fma.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(-.f64 (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))
(-.f64 (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (.f64 (neg.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))))
(-.f64 (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (neg.f64 (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))
(+.f64 (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))
(+.f64 (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))
(+.f64 (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(.f64 (.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(.f64 (.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)))
(.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64))))
(/.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(/.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 (.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))
(fma.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))
(fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))
(fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(fma.f64 (.f64 #s(literal 1 binary64) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))
(fma.f64 (.f64 #s(literal 1 binary64) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (.f64 #s(literal 1 binary64) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))
(fma.f64 (.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))
(fma.f64 (.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))
(fma.f64 (.f64 #s(literal 1 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))
(fma.f64 (.f64 #s(literal 1 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (.f64 #s(literal 1 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))
(fma.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))
(fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(fma.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(fma.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 1 binary64) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))
(fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 1 binary64) (.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 1 binary64) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))
(fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))
(fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(fma.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(fma.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(fma.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(fma.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(fma.f64 (cos.f64 phi2) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))
(fma.f64 (cos.f64 phi2) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (cos.f64 phi2) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(fma.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(fma.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(fma.f64 #s(literal 1 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))
(fma.f64 #s(literal 1 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 #s(literal 1 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))
(-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (neg.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(+.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))
(+.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(+.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))
(+.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) #s(literal 1 binary64))) #s(literal 1 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) #s(literal 1 binary64))) #s(literal 1 binary64))
(.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(/.f64 (/.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(/.f64 (/.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(/.f64 (/.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(/.f64 (fma.f64 #s(literal 1 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))
(/.f64 (fma.f64 #s(literal 1 binary64) (neg.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (neg.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (neg.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(/.f64 (-.f64 (.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 #s(literal 1 binary64) #s(literal 1 binary64))) (-.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) #s(literal 1 binary64)))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) (.f64 (neg.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) (+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) #s(literal 3 binary64)) (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) #s(literal 1 binary64)))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (fma.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) (.f64 (neg.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) (.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(/.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (neg.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (-.f64 (.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 #s(literal 1 binary64) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))
(/.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) #s(literal 1 binary64)))
(fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (/.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (/.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (/.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) #s(literal 1 binary64))
(fma.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64))
(fma.f64 (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) #s(literal 1 binary64))
(fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(fma.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) (neg.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) #s(literal 1 binary64))
(fma.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal 1 binary64))
(fma.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) #s(literal 1 binary64))
(fma.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal 1 binary64))
(fma.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal 1 binary64))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) #s(literal 1 binary64))
(fma.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) #s(literal 1 binary64))
(fma.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (cos.f64 phi1) (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) #s(literal 1 binary64))
(fma.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (/.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal 1 binary64))
(fma.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) #s(literal 1 binary64))
(-.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) #s(literal -1 binary64))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))
(+.f64 (/.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))
(+.f64 (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))
#s(literal 1 binary64)
(.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))
(.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(.f64 (/.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (/.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(.f64 (/.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (/.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))
(.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))))
(.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))))
(.f64 (/.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (/.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))))
(.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (/.f64 #s(literal 1 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))
(.f64 (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))
(.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) (neg.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))
(.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))
(.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))
(.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))
(.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (cos.f64 phi1) (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))
(.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (/.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))
(/.f64 (.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(/.f64 (.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) #s(literal 1 binary64)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(/.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(/.f64 (/.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(/.f64 (/.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) (neg.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (neg.f64 (neg.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))
(/.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(/.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (neg.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(/.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (neg.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))
(neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))
(.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (cos.f64 phi1))
(.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
(.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))
(.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)))
(.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1))))
(.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1))))
(/.f64 (.f64 (+.f64 (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2)) (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal 2 binary64))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 phi2))
(.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(.f64 (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 phi1))
(.f64 (cos.f64 phi2) (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1)))
(.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
(/.f64 (.f64 (cos.f64 phi1) (+.f64 (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2)) (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)))) #s(literal 2 binary64))
(/.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2)) (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2))) (cos.f64 phi1)) #s(literal 2 binary64))
(.f64 (+.f64 (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2)) (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2))) #s(literal 1/2 binary64))
(.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))
(.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 lambda2 #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 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 lambda2 #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 lambda2 #s(literal -1/2 binary64)) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2)) (sin.f64 (-.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) phi2)))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (cos.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (fabs.f64 phi2))) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2)) (sin.f64 (-.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) phi2))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2)) (sin.f64 (-.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) phi2)))))
(+.f64 (/.f64 (sin.f64 (-.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) phi2)) #s(literal 2 binary64)) (/.f64 (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))
(sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))
(*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64))
(*.f64 lambda2 #s(literal -1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2))
(*.f64 #s(literal -1/2 binary64) lambda2)
(neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))
lambda2
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)))) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)))) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2))))) (-.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2)))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2))) (.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 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2)))) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (fma.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 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2))))))
(neg.f64 (-.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2))))
(neg.f64 (sin.f64 (-.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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))
(sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))
(fma.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2) (.f64 (neg.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi2)))
(fma.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2) (neg.f64 (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2))))
(fma.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2))))
(fma.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2)) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(fma.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(fma.f64 (neg.f64 (sin.f64 phi2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(fma.f64 (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(fma.f64 (cos.f64 phi2) (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 phi2)))
(fma.f64 (cos.f64 phi2) (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 phi2))))
(fma.f64 (cos.f64 phi2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2))))
(-.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (neg.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 phi2))))
(-.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (neg.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2)))))
(-.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)))
(cos.f64 (neg.f64 (fabs.f64 phi2)))
(cos.f64 (fabs.f64 (fabs.f64 phi2)))
(cos.f64 (fabs.f64 phi2))
(cos.f64 (neg.f64 phi2))
(cos.f64 phi2)
(+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (neg.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi2)))
(+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (neg.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2))))
(+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2))))
(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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1))
(fma.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 (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)))))
(sin.f64 (fma.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 lambda1 #s(literal -1/2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (*.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64))))
(cos.f64 (fabs.f64 (*.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64))))
(cos.f64 (*.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
(cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(*.f64 (neg.f64 lambda1) #s(literal 1/2 binary64))
(*.f64 lambda1 #s(literal -1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (neg.f64 lambda1))
(*.f64 #s(literal -1/2 binary64) lambda1)
(neg.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
lambda1
(.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)))
(.f64 (.f64 #s(literal 1 binary64) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))
(.f64 (.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(.f64 (.f64 #s(literal 1 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
(.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 1 binary64))
(.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))))
(.f64 (cos.f64 phi2) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))))
(.f64 #s(literal 1 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(.f64 (cos.f64 phi2) (.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)))
(/.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #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 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)))) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)))
(.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal -1/2 binary64))
(*.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))
(.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.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 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #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)) (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)) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 (neg.f64 phi1)) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (neg.f64 phi1)) phi2)) (cos.f64 (-.f64 (neg.f64 (neg.f64 phi1)) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (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)) (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)) (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)) 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 (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)) (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)) (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)) phi2)) (cos.f64 (-.f64 (fabs.f64 (fabs.f64 phi1)) 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 (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 (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 (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 (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 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 phi2 (neg.f64 (neg.f64 phi1)))) (cos.f64 (-.f64 phi2 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 (+.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))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)))) #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 (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))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fma.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 (.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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (fma.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 (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))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1))) (cos.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (fma.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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (fma.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 (.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 (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))) (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))) (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))) 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 (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))) (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))) (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))) 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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fabs.f64 (fabs.f64 phi2))))) #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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (fabs.f64 (fabs.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 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)) #s(literal 2 binary64) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (fma.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #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 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #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 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #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 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #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))) (fma.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #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 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (fma.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #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 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1)))) #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) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (-.f64 (neg.f64 phi1) 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) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.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 (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 (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 phi2 phi1)) (cos.f64 (-.f64 (neg.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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (fma.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) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1))) (cos.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fabs.f64 phi2))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 phi2))) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 phi1))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (fabs.f64 phi1))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))))
(neg.f64 (/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal -2 binary64)))
(neg.f64 (/.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)))
(fma.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2))) (cos.f64 phi1)))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)))
(fma.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2)))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)))
(-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)))
(+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2)))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2))) (cos.f64 phi1)))
(+.f64 (/.f64 (cos.f64 (+.f64 phi1 phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/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 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)))
(sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
(*.f64 (neg.f64 lambda1) #s(literal -1/2 binary64))
(*.f64 lambda1 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) lambda1)
(*.f64 #s(literal -1/2 binary64) (neg.f64 lambda1))
(/.f64 (*.f64 lambda1 #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) lambda1) #s(literal 2 binary64))
(/.f64 (neg.f64 lambda1) #s(literal -2 binary64))
(/.f64 lambda1 #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) lambda1))
(neg.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))
(sin.f64 (fma.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64))))
(fma.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (*.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64))))
(cos.f64 (fabs.f64 (*.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64))))
(cos.f64 (*.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))
(cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(/.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (neg.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (+.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (.f64 (neg.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))
(fma.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64) (neg.f64 (.f64 (neg.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))))
(fma.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (neg.f64 (.f64 (neg.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))))
(fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (neg.f64 (.f64 (neg.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(-.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(-.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(-.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (neg.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))
(+.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(+.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (neg.f64 (.f64 (neg.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))
(+.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(+.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(sin.f64 (fma.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64))))
(fma.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (*.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64))))
(cos.f64 (fabs.f64 (*.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64))))
(cos.f64 (*.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))
(cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(*.f64 (neg.f64 lambda2) #s(literal -1/2 binary64))
(*.f64 lambda2 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) lambda2)
(*.f64 #s(literal -1/2 binary64) (neg.f64 lambda2))
(/.f64 (*.f64 lambda2 #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) lambda2) #s(literal 2 binary64))
(/.f64 (neg.f64 lambda2) #s(literal -2 binary64))
(/.f64 lambda2 #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) lambda2))
(neg.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))
(.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (+.f64 (fma.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (fma.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (fma.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 lambda1 #s(literal -1/2 binary64))))) (cos.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 lambda1 #s(literal -1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (neg.f64 (.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64))))) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (neg.f64 (*.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (fabs.f64 (.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64))))) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (fabs.f64 (*.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 lambda1 #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (*.f64 lambda1 #s(literal -1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) (*.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))
(sin.f64 (fma.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 lambda1 #s(literal -1/2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (*.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64))))
(cos.f64 (fabs.f64 (*.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64))))
(cos.f64 (*.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
(cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))))
(fabs.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))
(exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1 binary64))) #s(literal 1 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(literal 1 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) (-.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (.f64 (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))))) (+.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (-.f64 (.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))) (.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (fma.f64 (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (fma.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))))
(neg.f64 (-.f64 (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))
(neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 1 binary64))))
(fma.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (neg.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))))
(-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(-.f64 (-.f64 #s(literal 1 binary64) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))))
(-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(+.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (.f64 (neg.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))))
(+.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))) R) #s(literal 2 binary64))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))) (+.f64 R R))
(.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))) #s(literal 2 binary64)))
(fma.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))) R (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))) R))
(fma.f64 R (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))) (.f64 R (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))) R) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))) R))
(+.f64 (.f64 R (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))) (.f64 R (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))
(.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))
(sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))
(fabs.f64 (neg.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))
(fabs.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))
(exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64)))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)) (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (.f64 (.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))))) (.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))) (+.f64 (.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))
(/.f64 (+.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (-.f64 (.f64 (.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))))) (.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (fma.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)) (.f64 (.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))
(/.f64 (-.f64 (.f64 (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))))) (.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (-.f64 (.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (.f64 (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))
(neg.f64 (-.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)) (.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64))))))
(fma.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (fabs.f64 (fabs.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))))) (fabs.f64 (fabs.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))
(fma.f64 (neg.f64 (fabs.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))))) (neg.f64 (fabs.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))
(fma.f64 (neg.f64 (neg.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))))) (neg.f64 (neg.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))
(fma.f64 (fabs.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (fabs.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))
(fma.f64 (neg.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1) (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))
(fma.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64)))))
(-.f64 (.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))
(-.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (neg.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64))))))
(-.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (.f64 (neg.f64 (fabs.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))))) (fabs.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64))))))
(-.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (.f64 (neg.f64 (neg.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))))) (neg.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64))))))
(-.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (.f64 (neg.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64)))))
(-.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (neg.f64 (.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64))))))
(+.f64 (.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))
(+.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64)))))
#s(approx (sin (* 1/2 phi1)) (*.f64 phi1 #s(literal 1/2 binary64)))
(*.f64 phi1 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) phi1)
(/.f64 (*.f64 phi1 #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) phi1) #s(literal 2 binary64))
(/.f64 (neg.f64 phi1) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))
(/.f64 phi1 #s(literal 2 binary64))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))
(.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)))
(.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))
(.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(neg.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))
(fma.f64 (cos.f64 phi1) #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (cos.f64 phi1)))
(+.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64))))
(+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (cos.f64 phi1)))
(.f64 (sin.f64 (neg.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (sin.f64 (neg.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(.f64 (sin.f64 (fabs.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (sin.f64 (fabs.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (fabs.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (neg.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 1 binary64)) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))
(pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))
(neg.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(fma.f64 (neg.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1)))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1)))) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64))))
(-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64)))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))
(.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))
(/.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (-.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(neg.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))
(sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(fma.f64 (fabs.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (fabs.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(fma.f64 (neg.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (neg.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(fma.f64 (sin.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(-.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))
(-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(cos.f64 (neg.f64 (fabs.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1)))))
(cos.f64 (fabs.f64 (fabs.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1)))))
(cos.f64 (neg.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))
(cos.f64 (fabs.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))
(cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1)))
(+.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))
(.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 2 binary64)) #s(literal -1/2 binary64))
(.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)) #s(literal 2 binary64))
(*.f64 (-.f64 lambda2 lambda1) #s(literal -1 binary64))
(.f64 #s(literal -1/2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal 2 binary64)))
(.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (-.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)) (-.f64 (.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))))
(neg.f64 (neg.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))
(fma.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(fma.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)) #s(literal 1 binary64) (.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)) #s(literal 1 binary64)))
(fma.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(fma.f64 #s(literal 1 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)) (.f64 #s(literal 1 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(-.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(-.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)) (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(-.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)) (neg.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))
(+.f64 (.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)) #s(literal 1 binary64)) (.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 #s(literal 1 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))
(+.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 lambda1 #s(literal 1/2 binary64)))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))
(/.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) lambda2) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (pow.f64 (.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 lambda2 #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)) (fma.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 lambda1 #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) lambda2)) #s(literal 4 binary64))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(/.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (-.f64 lambda2 lambda1)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(neg.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64)))
(neg.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(neg.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(neg.f64 (/.f64 (-.f64 lambda2 lambda1) #s(literal 2 binary64)))
(neg.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(neg.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(neg.f64 (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64))))
(fma.f64 (neg.f64 lambda2) #s(literal 1/2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))
(fma.f64 (neg.f64 lambda1) #s(literal -1/2 binary64) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(fma.f64 (neg.f64 lambda1) #s(literal -1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(fma.f64 lambda2 #s(literal -1/2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 lambda2) (*.f64 lambda1 #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 lambda2 #s(literal -1/2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (neg.f64 lambda1) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (neg.f64 lambda1) (*.f64 lambda2 #s(literal -1/2 binary64)))
(fma.f64 #s(literal -1/2 binary64) lambda2 (*.f64 lambda1 #s(literal 1/2 binary64)))
(-.f64 (/.f64 lambda2 #s(literal -2 binary64)) (/.f64 lambda1 #s(literal -2 binary64)))
(-.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))
(+.f64 (/.f64 lambda2 #s(literal -2 binary64)) (*.f64 lambda1 #s(literal 1/2 binary64)))
(+.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal -1/2 binary64)))
(+.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (.f64 lambda1 #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 lambda2 (neg.f64 lambda1)))
(/.f64 (+.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 (neg.f64 lambda1) #s(literal 3 binary64))) (fma.f64 lambda2 lambda2 (-.f64 (.f64 (neg.f64 lambda1) (neg.f64 lambda1)) (.f64 lambda2 (neg.f64 lambda1)))))
(/.f64 (-.f64 (.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))) (fma.f64 lambda2 lambda2 (fma.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))
(.f64 (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(fabs.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))
(exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1 binary64))) #s(literal 1 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) #s(literal 1 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))) (-.f64 #s(literal 1 binary64) (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (-.f64 (.f64 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (.f64 #s(literal 1 binary64) (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (fma.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(neg.f64 (-.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) #s(literal 1 binary64)))
(-.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))
(-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))
(+.f64 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 R R)) R)
(*.f64 #s(literal 2 binary64) R)
(*.f64 R #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 R R) (.f64 R R)) (-.f64 R R))
(/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (.f64 R R))))
(fma.f64 #s(literal 1 binary64) R (*.f64 #s(literal 1 binary64) R))
(fma.f64 R #s(literal 1 binary64) (*.f64 R #s(literal 1 binary64)))
(-.f64 R (neg.f64 R))
(+.f64 (.f64 R #s(literal 1 binary64)) (.f64 R #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) R) (.f64 #s(literal 1 binary64) R))
(+.f64 R R)
(.f64 (.f64 R (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))) #s(literal 2 binary64))
(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 #s(literal 2 binary64) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) R))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) #s(literal 2 binary64)))
(fma.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) R (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) R))
(fma.f64 R (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (.f64 R (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(+.f64 (.f64 R (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))) (.f64 R (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) R) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) R))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))) (-.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))))
(fma.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) #s(literal 1 binary64) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(-.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (neg.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) #s(literal 1 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(+.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))
(.f64 (pow.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))
(sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(fabs.f64 (neg.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))
(fabs.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))
(exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (-.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (neg.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))
(/.f64 (+.f64 (pow.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 3 binary64))) (fma.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (neg.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (fma.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 3 binary64)) (pow.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 (.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))
(neg.f64 (-.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (neg.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))
(-.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(-.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (neg.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))
(+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (neg.f64 (neg.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))
(.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))) (-.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (fma.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(neg.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))))))
(fma.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(fma.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(-.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (neg.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
(-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))
(+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))) (+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (neg.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))))
(-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 phi1 #s(literal 1/2 binary64)))
(*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))
(/.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 phi1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) phi2) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(/.f64 (-.f64 (pow.f64 (.f64 phi1 #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) phi2) #s(literal 3 binary64))) (fma.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi1 #s(literal 1/2 binary64)) (fma.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi2) (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) phi2)))))
(/.f64 (-.f64 (.f64 phi1 #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) phi2)) #s(literal 4 binary64))
(/.f64 (-.f64 phi2 phi1) #s(literal -2 binary64))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (-.f64 phi2 phi1)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))
(neg.f64 (*.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))
(neg.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64)))
(neg.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))
(neg.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))
(fma.f64 phi1 #s(literal 1/2 binary64) (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))
(fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi2))
(fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal -1/2 binary64) phi2))
(-.f64 (/.f64 phi2 #s(literal -2 binary64)) (/.f64 phi1 #s(literal -2 binary64)))
(-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) phi2))
(+.f64 (/.f64 phi2 #s(literal -2 binary64)) (*.f64 phi1 #s(literal 1/2 binary64)))
(+.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))
(+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) phi2))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 phi2) phi1)) phi1)
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)
(/.f64 (-.f64 (.f64 phi1 phi1) (.f64 (neg.f64 phi2) (neg.f64 phi2))) (+.f64 phi1 phi2))
(/.f64 (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (neg.f64 phi2) #s(literal 3 binary64))) (fma.f64 phi1 phi1 (-.f64 (.f64 (neg.f64 phi2) (neg.f64 phi2)) (.f64 phi1 (neg.f64 phi2)))))
(/.f64 (-.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)) (+.f64 phi1 phi2))
(/.f64 (-.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) (fma.f64 phi1 phi1 (fma.f64 phi2 phi2 (*.f64 phi1 phi2))))
(neg.f64 (-.f64 phi2 phi1))
(-.f64 phi1 phi2)
(+.f64 (neg.f64 phi2) (neg.f64 (neg.f64 phi1)))
(+.f64 (neg.f64 phi2) phi1)
(+.f64 phi1 (neg.f64 phi2))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))
(.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))
(.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi2)))
(.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))
(.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2))) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2)))))
(+.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2)))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(.f64 (sin.f64 (neg.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (sin.f64 (neg.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(.f64 (sin.f64 (fabs.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (sin.f64 (fabs.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (fabs.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (neg.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 1 binary64)) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))
(pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))
(neg.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(fma.f64 (neg.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1)))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1)))) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64))))
(-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64)))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))
(sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 lambda1 #s(literal 1/2 binary64)))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))
(/.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) lambda2) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (pow.f64 (.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 lambda2 #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)) (fma.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 lambda1 #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) lambda2)) #s(literal 4 binary64))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(/.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (-.f64 lambda2 lambda1)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(neg.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64)))
(neg.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(neg.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(neg.f64 (/.f64 (-.f64 lambda2 lambda1) #s(literal 2 binary64)))
(neg.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(neg.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(neg.f64 (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64))))
(fma.f64 (neg.f64 lambda2) #s(literal 1/2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))
(fma.f64 (neg.f64 lambda1) #s(literal -1/2 binary64) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(fma.f64 (neg.f64 lambda1) #s(literal -1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(fma.f64 lambda2 #s(literal -1/2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 lambda2) (*.f64 lambda1 #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 lambda2 #s(literal -1/2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (neg.f64 lambda1) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (neg.f64 lambda1) (*.f64 lambda2 #s(literal -1/2 binary64)))
(fma.f64 #s(literal -1/2 binary64) lambda2 (*.f64 lambda1 #s(literal 1/2 binary64)))
(-.f64 (/.f64 lambda2 #s(literal -2 binary64)) (/.f64 lambda1 #s(literal -2 binary64)))
(-.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))
(+.f64 (/.f64 lambda2 #s(literal -2 binary64)) (*.f64 lambda1 #s(literal 1/2 binary64)))
(+.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal -1/2 binary64)))
(+.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)))
(*.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))) (fma.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))) (fma.f64 lambda1 lambda1 (fma.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) (neg.f64 (neg.f64 lambda1)))
(+.f64 (neg.f64 lambda2) lambda1)
(+.f64 lambda1 (neg.f64 lambda2))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)))) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)))) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2))))) (-.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2)))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2))) (.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 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2)))) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (fma.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 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2))))))
(neg.f64 (-.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2))))
(neg.f64 (sin.f64 (-.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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))
(sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))
(fma.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2) (.f64 (neg.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi2)))
(fma.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2) (neg.f64 (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2))))
(fma.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2))))
(fma.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2)) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(fma.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(fma.f64 (neg.f64 (sin.f64 phi2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(fma.f64 (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(fma.f64 (cos.f64 phi2) (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 phi2)))
(fma.f64 (cos.f64 phi2) (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 phi2))))
(fma.f64 (cos.f64 phi2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2))))
(-.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (neg.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 phi2))))
(-.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (neg.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2)))))
(-.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)))
(cos.f64 (neg.f64 (fabs.f64 phi2)))
(cos.f64 (fabs.f64 (fabs.f64 phi2)))
(cos.f64 (fabs.f64 phi2))
(cos.f64 (neg.f64 phi2))
(cos.f64 phi2)
(+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (neg.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi2)))
(+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (neg.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi2))))
(+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi2))) (neg.f64 phi2))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 (neg.f64 phi2) (neg.f64 phi2)) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (-.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (neg.f64 phi2) #s(literal 3 binary64)) (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (neg.f64 phi2) (neg.f64 phi2) (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (neg.f64 phi2) (.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 phi2) (neg.f64 phi2))) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi2)))
(/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi2 phi2)) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))
(/.f64 (+.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (neg.f64 phi2) #s(literal 3 binary64))) (fma.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 (.f64 (neg.f64 phi2) (neg.f64 phi2)) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi2)))))
(/.f64 (-.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) (fma.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64)) (fma.f64 phi2 phi2 (.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))))
(neg.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (cbrt.f64 (.f64 (PI.f64) (PI.f64)))) (cbrt.f64 (PI.f64)) (neg.f64 phi2))
(fma.f64 (cbrt.f64 (.f64 (PI.f64) (PI.f64))) (.f64 (cbrt.f64 (PI.f64)) #s(literal 1/2 binary64)) (neg.f64 phi2))
(fma.f64 (cbrt.f64 (*.f64 (PI.f64) (PI.f64))) (/.f64 (cbrt.f64 (PI.f64)) #s(literal 2 binary64)) (neg.f64 phi2))
(fma.f64 (PI.f64) #s(literal 1/2 binary64) (neg.f64 phi2))
(fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2))
(-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)
(-.f64 (neg.f64 phi2) (*.f64 (neg.f64 (PI.f64)) #s(literal 1/2 binary64)))
(-.f64 (neg.f64 phi2) (*.f64 #s(literal -1/2 binary64) (PI.f64)))
(-.f64 (neg.f64 phi2) (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi2))
(+.f64 (neg.f64 phi2) (*.f64 (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 (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 (*.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 (PI.f64) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (PI.f64)))
(log.f64 (pow.f64 (exp.f64 (PI.f64)) #s(literal 1/2 binary64)))
(PI.f64)
(.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))
(sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))
(fabs.f64 (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))
(exp.f64 (.f64 (log.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (neg.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(literal 1 binary64))) #s(literal 1 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(literal 1 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (-.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (-.f64 (neg.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))) (-.f64 #s(literal 1 binary64) (-.f64 (neg.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (+.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))
(/.f64 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (-.f64 (.f64 (-.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (-.f64 (neg.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (.f64 #s(literal 1 binary64) (-.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(literal 3 binary64)) (pow.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (fma.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))) (+.f64 #s(literal 1 binary64) (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (fma.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (.f64 #s(literal 1 binary64) (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))))
(neg.f64 (-.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))
(neg.f64 (-.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(literal 1 binary64)))
(fma.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))
(-.f64 (-.f64 #s(literal 1 binary64) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))
(-.f64 #s(literal 1 binary64) (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(+.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (neg.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))
(+.f64 (-.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (-.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(.f64 (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(.f64 #s(literal 2 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) R))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) R (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) R))
(fma.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(+.f64 (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) R) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) R))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (-.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))))
(fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 1 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(-.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (neg.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(+.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))
(sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(fabs.f64 (neg.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))
(fabs.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))
(exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (-.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 3 binary64))) (fma.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 (.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
(neg.f64 (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (neg.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(fma.f64 (cos.f64 phi1) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(fma.f64 (cos.f64 phi2) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(-.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(-.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))
(+.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (neg.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
(.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi2)))
(.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))
(.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(.f64 (cos.f64 phi1) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))
(.f64 (cos.f64 phi2) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))
(/.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal -2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(.f64 (.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 1/2 binary64))
(.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
(.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (/.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi2)))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(/.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal -2 binary64))
(/.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal -2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))) #s(literal -2 binary64))
(/.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))))
(fma.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(+.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(+.f64 (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/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 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)))) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)))
(.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal -1/2 binary64))
(*.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))
(.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.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 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #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)) (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)) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 (neg.f64 phi1)) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (neg.f64 phi1)) phi2)) (cos.f64 (-.f64 (neg.f64 (neg.f64 phi1)) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (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)) (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)) (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)) 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 (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)) (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)) (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)) phi2)) (cos.f64 (-.f64 (fabs.f64 (fabs.f64 phi1)) 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 (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 (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 (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 (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 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 phi2 (neg.f64 (neg.f64 phi1)))) (cos.f64 (-.f64 phi2 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 (+.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))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)))) #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 (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))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fma.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 (.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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (fma.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 (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))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1))) (cos.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (fma.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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (fma.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 (.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 (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))) (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))) (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))) 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 (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))) (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))) (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))) 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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fabs.f64 (fabs.f64 phi2))))) #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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (fabs.f64 (fabs.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 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)) #s(literal 2 binary64) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (fma.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #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 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #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 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #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 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #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))) (fma.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #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 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (fma.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #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 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1)))) #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) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (-.f64 (neg.f64 phi1) 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) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.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 (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 (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 phi2 phi1)) (cos.f64 (-.f64 (neg.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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (fma.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) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1))) (cos.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fabs.f64 phi2))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 phi2))) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 phi1))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (fabs.f64 phi1))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))))
(neg.f64 (/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal -2 binary64)))
(neg.f64 (/.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)))
(fma.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2))) (cos.f64 phi1)))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)))
(fma.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2)))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)))
(-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)))
(+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2)))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi2))) (cos.f64 phi1)))
(+.f64 (/.f64 (cos.f64 (+.f64 phi1 phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/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 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)))
(.f64 (.f64 #s(literal 2 binary64) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (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 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))
(.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64))) (cos.f64 (/.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 2 binary64)))))
(.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.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 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))
(/.f64 (-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (neg.f64 (cos.f64 (-.f64 phi2 phi1))))) (+.f64 (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (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 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)) (-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))))
(/.f64 (-.f64 (pow.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 3 binary64)) (pow.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) #s(literal 3 binary64))) (fma.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (fma.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (.f64 (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (neg.f64 (cos.f64 (-.f64 phi2 phi1)))))))
(/.f64 (-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) (-.f64 (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (cos.f64 (-.f64 phi2 phi1))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64))) (fma.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (cos.f64 (-.f64 phi2 phi1))))))
(neg.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))
(fma.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal -1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))
(fma.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))
(fma.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))
(fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))
(-.f64 (cos.f64 (-.f64 phi2 phi1)) (neg.f64 (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))
(-.f64 (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (neg.f64 (cos.f64 (-.f64 phi2 phi1))))
(-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)) (cos.f64 (-.f64 phi2 phi1))))
(-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (neg.f64 (cos.f64 (-.f64 phi2 phi1)))))
(+.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))
(+.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))))
(+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))
(+.f64 (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (neg.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1)))))
(+.f64 (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (cos.f64 (-.f64 phi2 phi1)))
(+.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)) (.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 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)) (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))) (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 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)) (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1))))))
(neg.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(neg.f64 (sin.f64 (-.f64 phi1 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))))
(sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))
(fma.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal -1/2 binary64) (.f64 (neg.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 phi1)))
(fma.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal -1/2 binary64) (neg.f64 (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1))))
(fma.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (neg.f64 phi1))))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (.f64 (neg.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 phi1)))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (neg.f64 (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1))))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (neg.f64 phi1))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64) (.f64 (neg.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 phi1)))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64) (neg.f64 (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (neg.f64 phi1))))
(fma.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1))))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (.f64 (neg.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (neg.f64 (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1))))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (neg.f64 phi1))))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (neg.f64 (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1))))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (neg.f64 phi1))))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 (neg.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 phi1)))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (neg.f64 (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1))))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (neg.f64 phi1))))
(fma.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) (.f64 (neg.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 phi1)))
(fma.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) (neg.f64 (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1))))
(fma.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (neg.f64 phi1))))
(fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (neg.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 phi1)))
(fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (neg.f64 (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1))))
(fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (neg.f64 phi1))))
(-.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (+.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (+.f64 phi1 phi2))))
(-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1))))
(+.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (neg.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 phi1)))
(+.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (neg.f64 (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1))))
(+.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (neg.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 phi1) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi1 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))
(/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (+.f64 phi1 phi2) (+.f64 phi1 phi2))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(/.f64 (-.f64 (.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)) (.f64 (neg.f64 phi1) (neg.f64 phi1))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(/.f64 (+.f64 (pow.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) #s(literal 3 binary64)) (pow.f64 (neg.f64 phi1) #s(literal 3 binary64))) (fma.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (+.f64 phi1 phi2) #s(literal 3 binary64))) (fma.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64)) (fma.f64 (+.f64 phi1 phi2) (+.f64 phi1 phi2) (.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (+.f64 phi1 phi2)))))
(/.f64 (-.f64 (.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)) (.f64 phi1 phi1)) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(/.f64 (-.f64 (pow.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fma.f64 phi1 phi1 (.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))
(neg.f64 (+.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64))) phi1))
(neg.f64 (-.f64 phi1 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)))
(fma.f64 (.f64 #s(literal 1/2 binary64) (cbrt.f64 (.f64 (PI.f64) (PI.f64)))) (cbrt.f64 (PI.f64)) (neg.f64 (+.f64 phi1 phi2)))
(fma.f64 (.f64 #s(literal 1/2 binary64) (cbrt.f64 (.f64 (PI.f64) (PI.f64)))) (cbrt.f64 (PI.f64)) (+.f64 (neg.f64 phi2) (neg.f64 phi1)))
(fma.f64 (.f64 #s(literal 1/2 binary64) (cbrt.f64 (.f64 (PI.f64) (PI.f64)))) (cbrt.f64 (PI.f64)) (-.f64 (neg.f64 phi2) phi1))
(fma.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi2))) (neg.f64 phi2) (neg.f64 phi1))
(fma.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi1))
(fma.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi1))
(fma.f64 (cbrt.f64 (.f64 (PI.f64) (PI.f64))) (.f64 (cbrt.f64 (PI.f64)) #s(literal 1/2 binary64)) (neg.f64 (+.f64 phi1 phi2)))
(fma.f64 (cbrt.f64 (.f64 (PI.f64) (PI.f64))) (.f64 (cbrt.f64 (PI.f64)) #s(literal 1/2 binary64)) (+.f64 (neg.f64 phi2) (neg.f64 phi1)))
(fma.f64 (cbrt.f64 (.f64 (PI.f64) (PI.f64))) (.f64 (cbrt.f64 (PI.f64)) #s(literal 1/2 binary64)) (-.f64 (neg.f64 phi2) phi1))
(fma.f64 (cbrt.f64 (*.f64 (PI.f64) (PI.f64))) (/.f64 (cbrt.f64 (PI.f64)) #s(literal 2 binary64)) (neg.f64 (+.f64 phi1 phi2)))
(fma.f64 (cbrt.f64 (*.f64 (PI.f64) (PI.f64))) (/.f64 (cbrt.f64 (PI.f64)) #s(literal 2 binary64)) (+.f64 (neg.f64 phi2) (neg.f64 phi1)))
(fma.f64 (cbrt.f64 (*.f64 (PI.f64) (PI.f64))) (/.f64 (cbrt.f64 (PI.f64)) #s(literal 2 binary64)) (-.f64 (neg.f64 phi2) phi1))
(fma.f64 (PI.f64) #s(literal 1/2 binary64) (neg.f64 (+.f64 phi1 phi2)))
(fma.f64 (PI.f64) #s(literal 1/2 binary64) (+.f64 (neg.f64 phi2) (neg.f64 phi1)))
(fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 (neg.f64 phi2) phi1))
(fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 (+.f64 phi1 phi2)))
(fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (neg.f64 phi2) (neg.f64 phi1)))
(fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 (neg.f64 phi2) phi1))
(-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (+.f64 phi1 phi2))
(-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 (neg.f64 phi1)))
(-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)
(+.f64 (neg.f64 phi1) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))
(+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 (+.f64 phi1 phi2)))
(+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (+.f64 (neg.f64 phi2) (neg.f64 phi1)))
(+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 (neg.f64 phi2) phi1))
(+.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 phi1))
(+.f64 (neg.f64 phi2) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (neg.f64 phi1)))
(+.f64 (neg.f64 phi2) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi2))) (neg.f64 phi2))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 (neg.f64 phi2) (neg.f64 phi2)) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (-.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (neg.f64 phi2) #s(literal 3 binary64)) (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (neg.f64 phi2) (neg.f64 phi2) (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (neg.f64 phi2) (.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 phi2) (neg.f64 phi2))) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi2)))
(/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi2 phi2)) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))
(/.f64 (+.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (neg.f64 phi2) #s(literal 3 binary64))) (fma.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 (.f64 (neg.f64 phi2) (neg.f64 phi2)) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi2)))))
(/.f64 (-.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) (fma.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64)) (fma.f64 phi2 phi2 (.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))))
(neg.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (cbrt.f64 (.f64 (PI.f64) (PI.f64)))) (cbrt.f64 (PI.f64)) (neg.f64 phi2))
(fma.f64 (cbrt.f64 (.f64 (PI.f64) (PI.f64))) (.f64 (cbrt.f64 (PI.f64)) #s(literal 1/2 binary64)) (neg.f64 phi2))
(fma.f64 (cbrt.f64 (*.f64 (PI.f64) (PI.f64))) (/.f64 (cbrt.f64 (PI.f64)) #s(literal 2 binary64)) (neg.f64 phi2))
(fma.f64 (PI.f64) #s(literal 1/2 binary64) (neg.f64 phi2))
(fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2))
(-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)
(-.f64 (neg.f64 phi2) (*.f64 (neg.f64 (PI.f64)) #s(literal 1/2 binary64)))
(-.f64 (neg.f64 phi2) (*.f64 #s(literal -1/2 binary64) (PI.f64)))
(-.f64 (neg.f64 phi2) (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi2))
(+.f64 (neg.f64 phi2) (*.f64 (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 (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 (*.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 (PI.f64) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 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 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 (cos.f64 phi1) (cos.f64 phi2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)) (.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 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (cos.f64 (+.f64 phi1 phi2)))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)) (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)) (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1))))))
(sin.f64 (+.f64 (fabs.f64 (-.f64 phi2 phi1)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(fma.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)))) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))
(fma.f64 (sin.f64 (-.f64 phi2 phi1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(fma.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))
(fma.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))
(fma.f64 (sin.f64 phi1) (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 phi2)))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1))))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))
(fma.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))
(fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(-.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 phi2 phi1))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 phi2 phi1))))
(-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (neg.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 phi1)))
(-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (neg.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (neg.f64 (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1))))
(-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (neg.f64 (sin.f64 phi2))))
(-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (neg.f64 phi1))))
(cos.f64 (neg.f64 (fabs.f64 (-.f64 phi2 phi1))))
(cos.f64 (fabs.f64 (fabs.f64 (-.f64 phi2 phi1))))
(cos.f64 (fabs.f64 (-.f64 phi2 phi1)))
(cos.f64 (-.f64 phi2 phi1))
(cos.f64 (-.f64 phi1 phi2))
(+.f64 (.f64 (sin.f64 (-.f64 phi2 phi1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1))))
(+.f64 (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))
(+.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))
(+.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) phi1)
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 phi1) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi1 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))
(/.f64 (-.f64 (.f64 phi1 phi1) (.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (-.f64 phi1 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)))
(/.f64 (-.f64 (.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)) (.f64 (neg.f64 phi1) (neg.f64 phi1))) (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))
(/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (-.f64 phi2 phi1) (-.f64 phi2 phi1))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))
(/.f64 (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) #s(literal 3 binary64))) (fma.f64 phi1 phi1 (-.f64 (.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)) (.f64 phi1 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)))))
(/.f64 (-.f64 (pow.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) #s(literal 3 binary64)) (pow.f64 (neg.f64 phi1) #s(literal 3 binary64))) (fma.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fma.f64 (neg.f64 phi1) (neg.f64 phi1) (.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (-.f64 phi2 phi1) #s(literal 3 binary64))) (fma.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64)) (fma.f64 (-.f64 phi2 phi1) (-.f64 phi2 phi1) (.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 phi2 phi1)))))
(/.f64 (-.f64 (.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)) (.f64 phi1 phi1)) (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))
(/.f64 (+.f64 (pow.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 (.f64 phi1 phi1) (.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))
(neg.f64 (-.f64 (neg.f64 phi1) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)))
(neg.f64 (-.f64 (-.f64 phi2 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (cbrt.f64 (.f64 (PI.f64) (PI.f64)))) (cbrt.f64 (PI.f64)) (-.f64 (neg.f64 phi2) (neg.f64 phi1)))
(fma.f64 (.f64 #s(literal 1/2 binary64) (cbrt.f64 (.f64 (PI.f64) (PI.f64)))) (cbrt.f64 (PI.f64)) (-.f64 phi1 phi2))
(fma.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi2))) (neg.f64 phi2) phi1)
(fma.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)
(fma.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)
(fma.f64 (cbrt.f64 (.f64 (PI.f64) (PI.f64))) (.f64 (cbrt.f64 (PI.f64)) #s(literal 1/2 binary64)) (-.f64 (neg.f64 phi2) (neg.f64 phi1)))
(fma.f64 (cbrt.f64 (.f64 (PI.f64) (PI.f64))) (.f64 (cbrt.f64 (PI.f64)) #s(literal 1/2 binary64)) (-.f64 phi1 phi2))
(fma.f64 (cbrt.f64 (*.f64 (PI.f64) (PI.f64))) (/.f64 (cbrt.f64 (PI.f64)) #s(literal 2 binary64)) (-.f64 (neg.f64 phi2) (neg.f64 phi1)))
(fma.f64 (cbrt.f64 (*.f64 (PI.f64) (PI.f64))) (/.f64 (cbrt.f64 (PI.f64)) #s(literal 2 binary64)) (-.f64 phi1 phi2))
(fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 (neg.f64 phi2) (neg.f64 phi1)))
(fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))
(fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 (neg.f64 phi2) (neg.f64 phi1)))
(fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 phi2))
(-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)
(-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 phi2 phi1))
(-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 phi1))
(-.f64 phi1 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) (neg.f64 phi2))
(+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 (neg.f64 phi2) (neg.f64 phi1)))
(+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 phi1 phi2))
(+.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 (neg.f64 phi1)))
(+.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)
(+.f64 (neg.f64 phi2) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi1)))
(+.f64 (neg.f64 phi2) (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1))
(+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(+.f64 phi1 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))
(sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 lambda1 #s(literal 1/2 binary64)))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))
(/.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) lambda2) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (pow.f64 (.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 lambda2 #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)) (fma.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 lambda1 #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) lambda2)) #s(literal 4 binary64))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(/.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (-.f64 lambda2 lambda1)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(neg.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64)))
(neg.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(neg.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(neg.f64 (/.f64 (-.f64 lambda2 lambda1) #s(literal 2 binary64)))
(neg.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(neg.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(neg.f64 (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64))))
(fma.f64 (neg.f64 lambda2) #s(literal 1/2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))
(fma.f64 (neg.f64 lambda1) #s(literal -1/2 binary64) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(fma.f64 (neg.f64 lambda1) #s(literal -1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(fma.f64 lambda2 #s(literal -1/2 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 lambda2) (*.f64 lambda1 #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 lambda2 #s(literal -1/2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (neg.f64 lambda1) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (neg.f64 lambda1) (*.f64 lambda2 #s(literal -1/2 binary64)))
(fma.f64 #s(literal -1/2 binary64) lambda2 (*.f64 lambda1 #s(literal 1/2 binary64)))
(-.f64 (/.f64 lambda2 #s(literal -2 binary64)) (/.f64 lambda1 #s(literal -2 binary64)))
(-.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))
(+.f64 (/.f64 lambda2 #s(literal -2 binary64)) (*.f64 lambda1 #s(literal 1/2 binary64)))
(+.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal -1/2 binary64)))
(+.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)))
(.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(fabs.f64 (neg.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(fabs.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64)))) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(/.f64 (-.f64 (.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 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 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))
(/.f64 (-.f64 (.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)))) (+.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 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))) (fma.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 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 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (-.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 (.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(neg.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64)))
(fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi1) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64)))
(-.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)))
(-.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi2))) (cos.f64 phi1)))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))
(-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
(+.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(+.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
(+.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64)))
(+.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 #s(literal -1/2 binary64) #s(literal -1/2 binary64))) (-.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 #s(literal -1/2 binary64) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (-.f64 (.f64 #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))
(neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))
(-.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))
(+.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 1/2 binary64) (.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 1/2 binary64)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (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)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(sin.f64 (+.f64 (fabs.f64 (-.f64 lambda1 lambda2)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (-.f64 lambda1 lambda2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(fma.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (neg.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 (neg.f64 lambda2))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1))))
(cos.f64 (neg.f64 (fabs.f64 (-.f64 lambda1 lambda2))))
(cos.f64 (fabs.f64 (fabs.f64 (-.f64 lambda1 lambda2))))
(cos.f64 (fabs.f64 (-.f64 lambda1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(+.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(*.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1 binary64)) #s(literal 1/2 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1 binary64)))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1 binary64)) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 2 binary64) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (-.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 #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64))) (fma.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 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 #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))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1 binary64)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 #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))) (fma.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(neg.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))
(-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))
(-.f64 #s(literal 1/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)) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 (neg.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1)))) #s(literal 1/2 binary64)))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))
(/.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) #s(literal -2 binary64))
(/.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 phi2 phi1))))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)))
(+.f64 (/.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 2 binary64)) (/.f64 (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)) #s(literal 2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 (cos.f64 phi1) (cos.f64 phi2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)) (.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 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (cos.f64 (+.f64 phi1 phi2)))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)) (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))) (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)) (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1))))))
(sin.f64 (+.f64 (fabs.f64 (-.f64 phi2 phi1)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(fma.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)))) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))
(fma.f64 (sin.f64 (-.f64 phi2 phi1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(fma.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))
(fma.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))
(fma.f64 (sin.f64 phi1) (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 phi2)))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1))))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))
(fma.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))
(fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(-.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 phi2 phi1))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 phi2 phi1))))
(-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (neg.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 phi1)))
(-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (neg.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (neg.f64 (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1))))
(-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (neg.f64 (sin.f64 phi2))))
(-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (neg.f64 phi1))))
(cos.f64 (neg.f64 (fabs.f64 (-.f64 phi2 phi1))))
(cos.f64 (fabs.f64 (fabs.f64 (-.f64 phi2 phi1))))
(cos.f64 (fabs.f64 (-.f64 phi2 phi1)))
(cos.f64 (-.f64 phi2 phi1))
(cos.f64 (-.f64 phi1 phi2))
(+.f64 (.f64 (sin.f64 (-.f64 phi2 phi1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1))))
(+.f64 (.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))
(+.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))
(+.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 phi1) phi2)) phi2)
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) phi2)
(/.f64 (-.f64 (.f64 phi2 phi2) (.f64 (neg.f64 phi1) (neg.f64 phi1))) (+.f64 phi1 phi2))
(/.f64 (+.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 (neg.f64 phi1) #s(literal 3 binary64))) (fma.f64 phi2 phi2 (-.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (.f64 phi2 (neg.f64 phi1)))))
(/.f64 (-.f64 (.f64 phi2 phi2) (.f64 phi1 phi1)) (+.f64 phi1 phi2))
(/.f64 (-.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (*.f64 phi2 phi1))))
(neg.f64 (-.f64 phi1 phi2))
(-.f64 phi2 (neg.f64 (neg.f64 phi1)))
(-.f64 phi2 phi1)
(+.f64 (neg.f64 phi1) phi2)
(+.f64 phi2 (neg.f64 phi1))
(.f64 (.f64 R (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))) #s(literal 2 binary64))
(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(.f64 #s(literal 2 binary64) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) R))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) #s(literal 2 binary64)))
(fma.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) R (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) R))
(fma.f64 R (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (.f64 R (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(+.f64 (.f64 R (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))) (.f64 R (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) R) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) R))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))) (-.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))))
(fma.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) #s(literal 1 binary64) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(-.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (neg.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) #s(literal 1 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(+.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))
(.f64 (pow.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))
(sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(fabs.f64 (neg.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))
(fabs.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))
(exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (-.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (neg.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 3 binary64))) (fma.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (neg.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (fma.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 3 binary64)) (pow.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 (.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))
(neg.f64 (-.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (neg.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))
(-.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(-.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (neg.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))
(+.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))
(+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (neg.f64 (neg.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))
#s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))))
(.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 phi1)))
(.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))
(.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(neg.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))
(fma.f64 (cos.f64 phi1) #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (cos.f64 phi1)))
(+.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64))))
(+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (cos.f64 phi1)))
(.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))
(sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))
(fabs.f64 (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))
(exp.f64 (.f64 (log.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (neg.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(literal 1 binary64))) #s(literal 1 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(literal 1 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (-.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (-.f64 (neg.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))) (-.f64 #s(literal 1 binary64) (-.f64 (neg.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (+.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (-.f64 (.f64 (-.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (-.f64 (neg.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (.f64 #s(literal 1 binary64) (-.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(literal 3 binary64)) (pow.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (fma.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))) (+.f64 #s(literal 1 binary64) (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (fma.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (.f64 #s(literal 1 binary64) (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))))
(neg.f64 (-.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))
(neg.f64 (-.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(literal 1 binary64)))
(fma.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))
(-.f64 (-.f64 #s(literal 1 binary64) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))
(-.f64 #s(literal 1 binary64) (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(+.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (neg.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))
(+.f64 (-.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (-.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))

eval954.0ms (2.1%)

Memory: 7.7MiB live, 2 261.1MiB allocated; 379ms collecting garbage
Compiler: Compiled 182 438 to 31 691 computations (82.6% saved)

prune2.4s (5.5%)

Memory

-142.4MiB live, 2 953.1MiB allocated; 1.9s collecting garbage

Pruning

249 alts after pruning (248 fresh and 1 done)

	Pruned	Kept	Total
New	3 078	105	3 183
Fresh	42	143	185
Picked	5	0	5
Done	0	1	1
Total	3 125	249	3 374

Accuracy

99.3%

Counts

3 374 → 249

Alt Table

Click to see full alt table

Status	Accuracy	Program
	20.7%	(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
	52.7%	(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
	52.7%	(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
	43.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
	43.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
	20.6%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
	20.6%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
	20.6%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
	10.5%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
	10.4%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
	19.0%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
	11.2%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
	26.1%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
	7.5%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
	26.5%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
	19.6%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
	30.1%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
	29.9%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
	25.3%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
	24.5%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
	20.7%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
	13.6%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
	14.0%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
	15.4%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
	42.4%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
	30.3%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
	32.5%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
	20.5%	(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
	24.4%	(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
	20.6%	(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
	18.2%	(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
	72.6%	(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))))
	37.3%	(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
	31.9%	(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
	40.2%	(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
	71.2%	(.f64 R (/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))))))))
	40.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	72.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))))
	38.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	53.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
	31.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
	52.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
	52.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	75.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))))
	98.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
	78.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	78.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	56.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	71.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	50.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	98.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))) (+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))) (+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
	78.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	24.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (-.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (-.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	48.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	60.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	55.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	50.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	50.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	75.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	98.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (/.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (/.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (/.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (/.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
	98.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (/.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (/.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 1 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (/.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (/.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 1 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
	98.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)))) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2))) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (.f64 (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2))) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)))) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2))) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (.f64 (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2))) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
	77.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))))
	98.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
	71.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
	52.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	61.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	62.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	42.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	55.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	49.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	48.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	62.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	67.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
	51.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))
	47.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))))))))
	53.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (.f64 #s(literal 2 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (.f64 #s(literal 2 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
	68.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 #s(approx ( (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 #s(approx ( (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
	54.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
	68.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))))))))))
	70.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))))))))))
	47.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	48.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	57.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	70.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))))
	49.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
	41.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	59.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	48.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))))
	59.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	49.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	78.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	56.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	52.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	42.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
	57.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	45.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	45.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	44.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	44.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	45.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	45.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	44.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	44.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	45.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	46.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)))))))))
	21.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (.f64 phi2 phi1))))) #s(literal 1/2 binary64))))))))
	40.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
	43.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	40.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	40.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
	35.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
	41.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
	44.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	32.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (.f64 #s(literal -1 binary64) phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	45.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	41.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	47.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	76.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))
	59.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	60.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	34.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	35.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
	35.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
	47.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
	40.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	47.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	59.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	42.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
	56.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	51.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	44.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	40.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	37.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	42.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	52.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	36.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	47.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
	42.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
	42.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
	38.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	38.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	37.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	40.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
	36.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
	33.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
	52.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	52.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	42.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	46.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	46.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	33.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	46.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	33.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	33.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	46.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
	47.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
	46.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
	28.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
	29.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
	38.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
	35.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	44.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	33.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	27.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
	39.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
	32.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
	38.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
	42.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
	43.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	37.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
	25.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	37.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	47.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	37.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	66.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (+.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	98.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
	54.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))))
	72.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
	43.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
	43.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
	46.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	48.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	32.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	30.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	34.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
	43.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	53.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
	56.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	60.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	57.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	58.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	98.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	51.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
	53.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
	46.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	42.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
	45.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	54.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	43.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
✓	55.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	43.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
	49.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	38.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	43.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) #s(literal 1/2 binary64))))))
	34.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
	28.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	32.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
	36.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	37.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	40.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	39.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	34.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	34.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	42.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
	21.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	17.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	42.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
	45.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
	45.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))))
	34.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	34.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	23.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
	23.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))))
	28.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	45.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64))))))))))
	45.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
	43.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
	39.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	19.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	36.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	14.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	45.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	15.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	30.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	23.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	38.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
	73.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
	52.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	57.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))))
	46.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	36.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	37.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
	45.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	58.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	34.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
	34.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	39.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	34.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))

Compiler

Compiled 38 855 to 16 315 computations (58% saved)

regimes1.6s (3.5%)

Memory

-5.8MiB live, 2 360.8MiB allocated; 315ms collecting garbage

Counts

425 → 1

Calls

Call 1

Inputs
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fabs.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (.f64 #s(literal -1 binary64) phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (.f64 phi2 phi1))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) #s(approx ( (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) #s(literal 1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 (sin.f64 phi2) (cos.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (cos.f64 (+.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (PI.f64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (PI.f64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (-.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (-.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #s(approx (sqrt (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 (pow.f64 #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))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (-.f64 (pow.f64 #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))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (fma.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 phi2) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (fma.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 phi2) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (.f64 #s(literal 2 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (.f64 #s(literal 2 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 #s(approx ( (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 #s(approx ( (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (/.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (/.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 1 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (/.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (/.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 1 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (/.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (/.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (/.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (/.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))) (+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))) (+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)))) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2))) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (.f64 (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2))) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2)))) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2))) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (.f64 (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi2))) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (+.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))))))))

Outputs

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

Calls

12 calls:

165.0ms	phi2
162.0ms	lambda1
152.0ms	(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
125.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
115.0ms	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))

Results

Accuracy	Segments	Branch
98.7%	1	`(-.f64 lambda1 lambda2)`
98.7%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
98.7%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
98.7%	1	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
98.7%	1	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
98.7%	1	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
98.7%	1	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
98.7%	1	`R`
98.7%	1	`lambda1`
98.7%	1	`lambda2`
98.7%	1	`phi1`
98.7%	1	`phi2`

Compiler

Compiled 196 to 142 computations (27.6% saved)

regimes1.8s (4%)

Memory

54.8MiB live, 2 841.0MiB allocated; 449ms collecting garbage

Counts

415 → 1

Calls

Call 1

Inputs
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fabs.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (.f64 #s(literal -1 binary64) phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (.f64 phi2 phi1))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) #s(approx ( (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) #s(literal 1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 (sin.f64 phi2) (cos.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (cos.f64 (+.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (PI.f64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (PI.f64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (-.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (-.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #s(approx (sqrt (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 (pow.f64 #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))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (-.f64 (pow.f64 #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))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (fma.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 phi2) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (fma.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 phi2) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (.f64 #s(literal 2 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (.f64 #s(literal 2 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 #s(approx ( (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 #s(approx ( (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (/.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (/.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (/.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 1 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (/.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (/.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 1 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (/.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (/.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (/.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (/.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))

Outputs

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

Calls

12 calls:

204.0ms	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
180.0ms	lambda1
177.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
137.0ms	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
133.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
98.7%	1	`(-.f64 lambda1 lambda2)`
98.7%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
98.7%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
98.7%	1	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
98.7%	1	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
98.7%	1	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
98.7%	1	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
98.7%	1	`R`
98.7%	1	`lambda1`
98.7%	1	`phi1`
98.7%	1	`phi2`
98.7%	1	`lambda2`

Compiler

Compiled 196 to 142 computations (27.6% saved)

regimes1.7s (3.7%)

Memory

96.6MiB live, 2 715.0MiB allocated; 638ms collecting garbage

Counts

396 → 1

Calls

Call 1

Inputs
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fabs.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (.f64 #s(literal -1 binary64) phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (.f64 phi2 phi1))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) #s(approx ( (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) #s(literal 1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 (sin.f64 phi2) (cos.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (cos.f64 (+.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (PI.f64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (PI.f64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (-.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (-.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #s(approx (sqrt (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 (pow.f64 #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))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (-.f64 (pow.f64 #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))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (fma.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 phi2) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (fma.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 phi2) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))

Outputs

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

Calls

12 calls:

248.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
220.0ms	(-.f64 lambda1 lambda2)
143.0ms	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
134.0ms	lambda1
117.0ms	phi1

Results

Accuracy	Segments	Branch
98.7%	1	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
98.7%	1	`(-.f64 lambda1 lambda2)`
98.7%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
98.7%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
98.7%	1	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
98.7%	1	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
98.7%	1	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
98.7%	1	`R`
98.7%	1	`lambda1`
98.7%	1	`phi1`
98.7%	1	`phi2`
98.7%	1	`lambda2`

Compiler

Compiled 196 to 142 computations (27.6% saved)

regimes1.6s (3.7%)

Memory

23.6MiB live, 2 317.2MiB allocated; 413ms collecting garbage

Counts

395 → 1

Calls

Call 1

Inputs
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fabs.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (.f64 #s(literal -1 binary64) phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (.f64 phi2 phi1))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) #s(approx ( (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) #s(literal 1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 (sin.f64 phi2) (cos.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (cos.f64 (+.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (PI.f64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (PI.f64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (-.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (-.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #s(approx (sqrt (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 (pow.f64 #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))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (-.f64 (pow.f64 #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))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (fma.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 phi2) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (fma.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64))))))) (cos.f64 phi2) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))))))

Outputs

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

Calls

12 calls:

226.0ms	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
173.0ms	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
159.0ms	phi2
152.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
138.0ms	lambda2

Results

Accuracy	Segments	Branch
98.6%	1	`(-.f64 lambda1 lambda2)`
98.6%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
98.6%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
98.6%	1	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
98.6%	1	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
98.6%	1	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
98.6%	1	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
98.6%	1	`R`
98.6%	1	`lambda1`
98.6%	1	`phi1`
98.6%	1	`lambda2`
98.6%	1	`phi2`

Compiler

Compiled 196 to 142 computations (27.6% saved)

regimes1.4s (3.1%)

Memory

-3.2MiB live, 2 028.9MiB allocated; 376ms collecting garbage

Counts

378 → 3

Calls

Call 1

Inputs
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fabs.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (.f64 #s(literal -1 binary64) phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (.f64 phi2 phi1))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) #s(approx ( (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) #s(literal 1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 (sin.f64 phi2) (cos.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (cos.f64 (+.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (PI.f64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (PI.f64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (-.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (-.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #s(approx (sqrt (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 (pow.f64 #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))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (-.f64 (pow.f64 #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))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))

Outputs

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

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

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

Calls

12 calls:

137.0ms	(-.f64 lambda1 lambda2)
131.0ms	phi1
125.0ms	lambda2
121.0ms	lambda1
118.0ms	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))

Results

Accuracy	Segments	Branch
82.5%	3	`(-.f64 lambda1 lambda2)`
82.5%	3	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
78.2%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
78.2%	1	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
80.0%	2	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
80.0%	2	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
78.2%	1	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
78.2%	1	`R`
85.3%	3	`lambda1`
81.8%	2	`lambda2`
89.2%	3	`phi1`
91.6%	3	`phi2`

Compiler

Compiled 196 to 142 computations (27.6% saved)

regimes146.0ms (0.3%)

Memory

7.6MiB live, 193.3MiB allocated; 15ms collecting garbage

Counts

371 → 3

Calls

Call 1

Inputs
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fabs.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (.f64 #s(literal -1 binary64) phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (.f64 phi2 phi1))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) #s(approx ( (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) #s(literal 1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 (sin.f64 phi2) (cos.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (cos.f64 (+.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (PI.f64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (PI.f64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (-.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (-.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #s(approx (sqrt (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 (pow.f64 #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))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (-.f64 (pow.f64 #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))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))))

Outputs

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

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

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

Calls

1 calls:

106.0ms

phi2

Results

Accuracy	Segments	Branch
91.6%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes140.0ms (0.3%)

Memory

15.1MiB live, 239.0MiB allocated; 29ms collecting garbage

Counts

364 → 3

Calls

Call 1

Inputs
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fabs.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (.f64 #s(literal -1 binary64) phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (.f64 phi2 phi1))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) #s(approx ( (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) #s(literal 1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 (sin.f64 phi2) (cos.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (cos.f64 (+.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (PI.f64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (PI.f64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(approx (sqrt (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (-.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (-.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #s(approx (sqrt (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 (pow.f64 #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))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (-.f64 (pow.f64 #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))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))

Outputs

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

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

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

Calls

1 calls:

97.0ms

phi2

Results

Accuracy	Segments	Branch
89.5%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes135.0ms (0.3%)

Memory

40.4MiB live, 223.1MiB allocated; 30ms collecting garbage

Counts

344 → 3

Calls

Call 1

Inputs
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fabs.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (.f64 #s(literal -1 binary64) phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (.f64 phi2 phi1))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) #s(approx ( (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) #s(literal 1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 (sin.f64 phi2) (cos.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))

Outputs

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

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

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

Calls

1 calls:

89.0ms

phi2

Results

Accuracy	Segments	Branch
89.5%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes127.0ms (0.3%)

Memory

-13.2MiB live, 240.7MiB allocated; 27ms collecting garbage

Counts

341 → 3

Calls

Call 1

Inputs
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fabs.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (.f64 #s(literal -1 binary64) phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (.f64 phi2 phi1))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) #s(approx ( (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) #s(literal 1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 (sin.f64 phi2) (cos.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (+ 1 (/ (* (* (* (sin (* lambda2 -1/2)) (cos phi2)) (cos phi1)) (cos (* lambda1 -1/2))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2))))) (* (* (* (cos phi2) (cos phi1)) (sin (* lambda1 1/2))) (cos (* lambda2 -1/2)))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) #s(literal 2 binary64))))))))))

Outputs

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

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

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

Calls

1 calls:

84.0ms

phi2

Results

Accuracy	Segments	Branch
89.4%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes128.0ms (0.3%)

Memory

1.7MiB live, 269.2MiB allocated; 33ms collecting garbage

Counts

320 → 3

Calls

Call 1

Inputs
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fabs.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (.f64 #s(literal -1 binary64) phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (.f64 phi2 phi1))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) #s(approx ( (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) #s(literal 1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 (sin.f64 phi2) (cos.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))

Outputs

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

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

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

Calls

1 calls:

89.0ms

phi2

Results

Accuracy	Segments	Branch
89.4%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes1.1s (2.4%)

Memory

30.3MiB live, 1 261.2MiB allocated; 252ms collecting garbage

Counts

318 → 4

Calls

Call 1

Inputs
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fabs.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (.f64 #s(literal -1 binary64) phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (.f64 phi2 phi1))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) #s(approx ( (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) #s(literal 1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 (sin.f64 phi2) (cos.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))

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

Calls

12 calls:

107.0ms	phi1
103.0ms	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
102.0ms	phi2
96.0ms	R
84.0ms	lambda1

Results

Accuracy	Segments	Branch
65.6%	4	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
62.7%	2	`R`
73.8%	3	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
65.7%	3	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
65.6%	3	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
65.6%	3	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
74.7%	3	`(-.f64 lambda1 lambda2)`
74.7%	3	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
73.2%	3	`lambda2`
81.4%	4	`lambda1`
77.2%	3	`phi1`
81.7%	4	`phi2`

Compiler

Compiled 196 to 142 computations (27.6% saved)

regimes184.0ms (0.4%)

Memory

25.5MiB live, 207.4MiB allocated; 21ms collecting garbage

Counts

317 → 3

Calls

Call 1

Inputs
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fabs.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (.f64 #s(literal -1 binary64) phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (.f64 phi2 phi1))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) #s(approx ( (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) #s(literal 1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 (sin.f64 phi2) (cos.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 phi1 #s(literal -1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))

Outputs

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

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

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

Calls

2 calls:

80.0ms	lambda1
71.0ms	phi2

Results

Accuracy	Segments	Branch
75.6%	3	`lambda1`
78.3%	3	`phi2`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes267.0ms (0.6%)

Memory

-28.3MiB live, 245.1MiB allocated; 36ms collecting garbage

Counts

292 → 3

Calls

Call 1

Inputs
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fabs.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (.f64 #s(literal -1 binary64) phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (.f64 phi2 phi1))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) #s(approx ( (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) #s(literal 1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 (sin.f64 phi2) (cos.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin ( -1/2 lambda2)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))

Outputs

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

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

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

Calls

2 calls:

90.0ms	phi2
73.0ms	phi1

Results

Accuracy	Segments	Branch
76.1%	3	`phi1`
75.5%	3	`phi2`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes161.0ms (0.4%)

Memory

-13.8MiB live, 159.4MiB allocated; 102ms collecting garbage

Counts

289 → 3

Calls

Call 1

Inputs
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fabs.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (.f64 #s(literal -1 binary64) phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (.f64 phi2 phi1))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) #s(approx ( (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) #s(literal 1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 (sin.f64 phi2) (cos.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))))

Outputs

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

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

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

Calls

1 calls:

127.0ms

phi1

Results

Accuracy	Segments	Branch
76.1%	3	`phi1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes781.0ms (1.8%)

Memory

36.7MiB live, 921.6MiB allocated; 171ms collecting garbage

Counts

287 → 3

Calls

Call 1

Inputs
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fabs.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (.f64 #s(literal -1 binary64) phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (.f64 phi2 phi1))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) #s(approx ( (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) #s(literal 1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 (sin.f64 phi2) (cos.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2))))) (+ (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 -1/2)))))) (fma.f64 (cos.f64 phi1) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))

Outputs

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

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

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

Calls

7 calls:

150.0ms	phi2
124.0ms	phi1
119.0ms	lambda2
99.0ms	lambda1
99.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))

Results

Accuracy	Segments	Branch
71.6%	4	`lambda2`
70.7%	3	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
72.7%	4	`(-.f64 lambda1 lambda2)`
72.7%	4	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
72.5%	3	`phi2`
72.2%	3	`lambda1`
67.3%	3	`phi1`

Compiler

Compiled 18 to 43 computations (-138.9% saved)

regimes2.6s (5.8%)

Memory

-218.1MiB live, 639.6MiB allocated; 1.4s collecting garbage

Counts

286 → 3

Calls

Call 1

Inputs
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fabs.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (.f64 #s(literal -1 binary64) phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (.f64 phi2 phi1))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) #s(approx ( (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) #s(literal 1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 (sin.f64 phi2) (cos.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))

Outputs

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

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

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

Calls

7 calls:

1.3s	phi1
883.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
91.0ms	lambda2
79.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
73.0ms	lambda1

Results

Accuracy	Segments	Branch
66.8%	3	`phi1`
60.8%	1	`lambda2`
65.3%	3	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
65.2%	3	`(-.f64 lambda1 lambda2)`
65.2%	3	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
60.8%	1	`lambda1`
60.8%	1	`phi2`

Compiler

Compiled 18 to 43 computations (-138.9% saved)

regimes428.0ms (1%)

Memory

-0.1MiB live, 697.8MiB allocated; 125ms collecting garbage

Counts

285 → 3

Calls

Call 1

Inputs
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fabs.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (.f64 #s(literal -1 binary64) phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (.f64 phi2 phi1))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) #s(approx ( (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) #s(literal 1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 (sin.f64 phi2) (cos.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))

Outputs

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

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

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

Calls

5 calls:

108.0ms	(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
82.0ms	phi1
72.0ms	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
69.0ms	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
65.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))

Results

Accuracy	Segments	Branch
65.3%	3	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
60.8%	1	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
60.8%	1	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
60.8%	1	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
60.8%	1	`phi1`

Compiler

Compiled 131 to 82 computations (37.4% saved)

regimes114.0ms (0.3%)

Memory

-19.1MiB live, 134.0MiB allocated; 33ms collecting garbage

Counts

283 → 3

Calls

Call 1

Inputs
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fabs.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (.f64 #s(literal -1 binary64) phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (.f64 phi2 phi1))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) #s(approx ( (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) #s(literal 1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 (sin.f64 phi2) (cos.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/2 binary64) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 1/2 binary64)))))))))

Outputs

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

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

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

Calls

1 calls:

65.0ms

(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))

Results

Accuracy	Segments	Branch
65.3%	3	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`

Compiler

Compiled 6 to 9 computations (-50% saved)

regimes288.0ms (0.6%)

Memory

8.2MiB live, 336.9MiB allocated; 24ms collecting garbage

Counts

281 → 3

Calls

Call 1

Inputs
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fabs.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (.f64 #s(literal -1 binary64) phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (.f64 phi2 phi1))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) #s(approx ( (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))) #s(literal 1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 (sin.f64 phi2) (cos.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))

Outputs

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

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

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

Calls

3 calls:

68.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
66.0ms	(-.f64 lambda1 lambda2)
65.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))

Results

Accuracy	Segments	Branch
65.0%	3	`(-.f64 lambda1 lambda2)`
65.0%	3	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
65.1%	3	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`

Compiler

Compiled 14 to 23 computations (-64.3% saved)

regimes105.0ms (0.2%)

Memory

24.9MiB live, 158.9MiB allocated; 27ms collecting garbage

Counts

264 → 3

Calls

Call 1

Inputs
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fabs.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (.f64 #s(literal -1 binary64) phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (.f64 phi2 phi1))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) #s(approx ( (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))

Outputs

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

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

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

Calls

1 calls:

75.0ms

(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))

Results

Accuracy	Segments	Branch
65.1%	3	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`

Compiler

Compiled 6 to 9 computations (-50% saved)

regimes239.0ms (0.5%)

Memory

-20.9MiB live, 314.6MiB allocated; 63ms collecting garbage

Counts

263 → 3

Calls

Call 1

Inputs
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fabs.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 phi1))) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (.f64 #s(literal -1 binary64) phi1))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (- (* (PI) 1/2) phi2) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi1) phi2))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fabs.f64 phi1)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 (fabs.f64 phi2) phi1))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi1 (fabs.f64 phi2)))))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))) (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (PI.f64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (.f64 phi2 phi1))))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 phi1 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) lambda1) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda2 #s(literal -1/2 binary64)) phi2)) (sin.f64 (fma.f64 lambda2 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) #s(approx ( (cos (- phi2 phi1)) 1/2) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (.f64 phi1 (cos.f64 phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi2))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(approx ( (sin (* 1/2 phi2)) (cos (* 1/2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 phi2) (cos.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (-.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)))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- ( (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi1)) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 phi2)) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (-.f64 phi2 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 phi2 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) #s(literal 2 binary64))))))))

Outputs

(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fabs.f64 (fma.f64 (-.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))

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

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

Calls

3 calls:

85.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
63.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
62.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
64.9%	3	`(-.f64 lambda1 lambda2)`
64.9%	3	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
65.0%	3	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`

Compiler

Compiled 14 to 23 computations (-64.3% saved)

regimes53.0ms (0.1%)

Memory

18.9MiB live, 72.9MiB allocated; 5ms collecting garbage

Counts

154 → 3

Calls

Call 1

Inputs
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))

Outputs

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

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

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

Calls

1 calls:

37.0ms

(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))

Results

Accuracy	Segments	Branch
64.9%	3	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`

Compiler

Compiled 6 to 9 computations (-50% saved)

regimes125.0ms (0.3%)

Memory

-30.3MiB live, 160.4MiB allocated; 9ms collecting garbage

Counts

153 → 3

Calls

Call 1

Inputs
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda1 #s(literal 1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))

Outputs

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

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

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

Calls

3 calls:

37.0ms	(-.f64 lambda1 lambda2)
36.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
35.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))

Results

Accuracy	Segments	Branch
64.7%	3	`(-.f64 lambda1 lambda2)`
64.7%	3	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
64.8%	3	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`

Compiler

Compiled 14 to 23 computations (-64.3% saved)

regimes345.0ms (0.8%)

Memory

21.0MiB live, 446.3MiB allocated; 29ms collecting garbage

Counts

115 → 2

Calls

Call 1

Inputs
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (/ (+ (sin (- (- (* (PI) 1/2) phi2) phi1)) (sin (+ (- (* (PI) 1/2) phi2) phi1))) 2) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 (neg.f64 phi1))) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))

Outputs

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

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

Calls

12 calls:

31.0ms	phi2
29.0ms	lambda2
29.0ms	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
28.0ms	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
28.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
57.1%	1	`lambda2`
60.7%	3	`phi2`
57.1%	1	`lambda1`
60.6%	2	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
60.6%	2	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
60.5%	2	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
60.6%	3	`phi1`
57.1%	1	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
57.1%	1	`R`
60.6%	3	`(-.f64 lambda1 lambda2)`
60.6%	3	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
60.6%	3	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`

Compiler

Compiled 196 to 142 computations (27.6% saved)

regimes104.0ms (0.2%)

Memory

29.7MiB live, 75.6MiB allocated; 2ms collecting garbage

Counts

105 → 2

Calls

Call 1

Inputs
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))

Outputs

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

(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))

Calls

3 calls:

44.0ms

(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))

24.0ms

(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))

24.0ms

(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
59.8%	2	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
59.9%	2	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
59.9%	2	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))

Compiler

Compiled 124 to 68 computations (45.2% saved)

regimes90.0ms (0.2%)

Memory

-41.5MiB live, 56.0MiB allocated; 5ms collecting garbage

Counts

104 → 2

Calls

Call 1

Inputs
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* (- lambda2 lambda1) -1/2))) (cos.f64 lambda1)))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* (- lambda2 lambda1) -1/2)) (.f64 #s(literal -1 binary64) lambda2))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (fma.f64 R R (-.f64 (.f64 R R) (*.f64 R R)))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (sin (* 1/2 phi1)) (sin (* 1/2 phi1))) (* (- 1/2 (* 1/2 (cos (* 2 (* (- lambda2 lambda1) -1/2))))) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) #s(approx (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (- (* (cos (* phi2 -1/2)) (sin (* 1/2 phi1))) (* (sin (* 1/2 phi2)) (cos (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ( 1/2 phi1)) (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal -1/2 binary64))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal -1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (+ ( (- (* (cos (- lambda2 lambda1)) 1/2) 1/2) (* (cos phi2) (cos phi1))) (+ 1/2 (* (cos (- phi2 phi1)) 1/2))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) #s(approx (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (pow (sin (* 1/2 lambda1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 #s(approx (pow (sin ( 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(.f64 (atan2.f64 (.f64 (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))))) (.f64 #s(literal 2 binary64) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (+.f64 R R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(approx (sin (* 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) #s(approx (sin ( 1/2 phi1)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (fma.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (sin (+ (* 1/2 (PI)) (neg phi2)))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))

Outputs

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

(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.f64 (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.f64 (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))

Calls

2 calls:

25.0ms

(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))

24.0ms

(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))

Results

Accuracy	Segments	Branch
59.9%	2	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
59.9%	2	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))

Compiler

Compiled 100 to 49 computations (51% saved)

regimes94.0ms (0.2%)

Memory

19.5MiB live, 65.9MiB allocated; 1ms collecting garbage

Counts

91 → 2

Calls

Call 1

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

Outputs

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

(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))

Calls

3 calls:

41.0ms

(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))

21.0ms

(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))

21.0ms

(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))

Results

Accuracy	Segments	Branch
59.8%	2	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
59.6%	2	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
59.6%	2	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))

Compiler

Compiled 124 to 68 computations (45.2% saved)

regimes35.0ms (0.1%)

Memory

-14.1MiB live, 31.9MiB allocated; 2ms collecting garbage

Counts

90 → 2

Calls

Call 1

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

Outputs

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

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

Calls

1 calls:

25.0ms

(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
59.8%	2	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`

Compiler

Compiled 24 to 19 computations (20.8% saved)

regimes186.0ms (0.4%)

Memory

36.3MiB live, 319.1MiB allocated; 19ms collecting garbage

Counts

87 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

8 calls:

24.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
23.0ms	phi1
23.0ms	(-.f64 lambda1 lambda2)
23.0ms	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
21.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))

Results

Accuracy	Segments	Branch
60.5%	3	`phi1`
55.5%	2	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
54.8%	2	`(-.f64 lambda1 lambda2)`
54.8%	2	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
60.4%	3	`phi2`
54.3%	2	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
54.3%	2	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
54.3%	2	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`

Compiler

Compiled 140 to 101 computations (27.9% saved)

regimes29.0ms (0.1%)

Memory

6.1MiB live, 52.5MiB allocated; 2ms collecting garbage

Counts

78 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

18.0ms

phi1

Results

Accuracy	Segments	Branch
60.5%	3	`phi1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes51.0ms (0.1%)

Memory

-9.3MiB live, 80.6MiB allocated; 10ms collecting garbage

Counts

72 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

2 calls:

21.0ms	phi2
17.0ms	phi1

Results

Accuracy	Segments	Branch
60.4%	3	`phi2`
58.9%	3	`phi1`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes121.0ms (0.3%)

Memory

-8.9MiB live, 172.9MiB allocated; 38ms collecting garbage

Counts

71 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

5 calls:

30.0ms	phi2
23.0ms	lambda2
22.0ms	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
21.0ms	R
17.0ms	lambda1

Results

Accuracy	Segments	Branch
50.9%	2	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
51.0%	2	`R`
52.9%	3	`lambda1`
52.7%	4	`lambda2`
58.9%	3	`phi2`

Compiler

Compiled 57 to 46 computations (19.3% saved)

regimes40.0ms (0.1%)

Memory

0.5MiB live, 47.4MiB allocated; 17ms collecting garbage

Counts

69 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

32.0ms

phi2

Results

Accuracy	Segments	Branch
58.9%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes28.0ms (0.1%)

Memory

0.8MiB live, 45.7MiB allocated; 5ms collecting garbage

Counts

65 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

15.0ms

phi2

Results

Accuracy	Segments	Branch
58.9%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes38.0ms (0.1%)

Memory

20.6MiB live, 65.4MiB allocated; 5ms collecting garbage

Counts

57 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

2 calls:

18.0ms	phi1
14.0ms	phi2

Results

Accuracy	Segments	Branch
57.9%	3	`phi1`
58.0%	3	`phi2`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes38.0ms (0.1%)

Memory

20.6MiB live, 65.1MiB allocated; 5ms collecting garbage

Counts

56 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

2 calls:

18.0ms	phi2
13.0ms	phi1

Results

Accuracy	Segments	Branch
57.9%	3	`phi1`
56.1%	3	`phi2`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes129.0ms (0.3%)

Memory

2.1MiB live, 184.2MiB allocated; 33ms collecting garbage

Counts

46 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

8 calls:

27.0ms	phi1
17.0ms	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
16.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
16.0ms	phi2
12.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))

Results

Accuracy	Segments	Branch
51.9%	3	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
51.9%	3	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
51.8%	3	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
55.7%	3	`phi2`
48.3%	3	`(-.f64 lambda1 lambda2)`
48.3%	3	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
48.3%	2	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
54.3%	3	`phi1`

Compiler

Compiled 140 to 101 computations (27.9% saved)

regimes31.0ms (0.1%)

Memory

-16.4MiB live, 30.0MiB allocated; 17ms collecting garbage

Counts

40 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

26.0ms

phi2

Results

Accuracy	Segments	Branch
55.0%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes29.0ms (0.1%)

Memory

1.9MiB live, 46.6MiB allocated; 6ms collecting garbage

Counts

38 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

2 calls:

14.0ms	phi1
10.0ms	phi2

Results

Accuracy	Segments	Branch
53.6%	3	`phi1`
53.0%	3	`phi2`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes13.0ms (0%)

Memory

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

Counts

34 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

9.0ms

phi1

Results

Accuracy	Segments	Branch
53.6%	3	`phi1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes17.0ms (0%)

Memory

-19.5MiB live, 25.3MiB allocated; 5ms collecting garbage

Counts

33 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

13.0ms

phi1

Results

Accuracy	Segments	Branch
53.1%	3	`phi1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes12.0ms (0%)

Memory

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

Counts

31 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

8.0ms

phi1

Results

Accuracy	Segments	Branch
53.1%	3	`phi1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes166.0ms (0.4%)

Memory

-20.8MiB live, 161.1MiB allocated; 89ms collecting garbage

Counts

30 → 2

Calls

Call 1

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

Outputs

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

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

Calls

10 calls:

76.0ms	R
13.0ms	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
13.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
12.0ms	phi1
8.0ms	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))

Results

Accuracy	Segments	Branch
43.2%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
43.2%	1	`lambda2`
48.0%	2	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
47.9%	2	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
47.9%	2	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
43.2%	1	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
43.2%	1	`R`
43.2%	1	`lambda1`
43.2%	1	`phi2`
43.2%	1	`phi1`

Compiler

Compiled 188 to 128 computations (31.9% saved)

regimes116.0ms (0.3%)

Memory

43.7MiB live, 182.2MiB allocated; 22ms collecting garbage

Counts

29 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

12 calls:

22.0ms	R
12.0ms	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
9.0ms	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
8.0ms	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
8.0ms	(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
35.8%	2	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
38.3%	3	`lambda1`
32.8%	1	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
39.1%	3	`lambda2`
44.0%	3	`phi1`
35.1%	2	`phi2`
32.8%	1	`R`
34.5%	2	`(-.f64 lambda1 lambda2)`
34.5%	2	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
37.6%	2	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
37.6%	2	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
37.5%	2	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`

Compiler

Compiled 196 to 142 computations (27.6% saved)

regimes89.0ms (0.2%)

Memory

-20.3MiB live, 167.2MiB allocated; 15ms collecting garbage

Counts

28 → 1

Calls

Call 1

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

Outputs

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

Calls

10 calls:

11.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
11.0ms	(-.f64 lambda1 lambda2)
9.0ms	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
8.0ms	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
7.0ms	(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
32.8%	1	`(-.f64 lambda1 lambda2)`
32.8%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
32.8%	1	`phi2`
32.8%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
32.8%	1	`lambda1`
32.8%	1	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
32.8%	1	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
32.8%	1	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
32.8%	1	`lambda2`
32.8%	1	`phi1`

Compiler

Compiled 142 to 111 computations (21.8% saved)

regimes105.0ms (0.2%)

Memory

8.6MiB live, 199.3MiB allocated; 20ms collecting garbage

Counts

27 → 1

Calls

Call 1

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

Outputs

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

Calls

12 calls:

12.0ms	(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
11.0ms	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
11.0ms	lambda2
10.0ms	phi2
7.0ms	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))

Results

Accuracy	Segments	Branch
32.6%	1	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
32.6%	1	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
32.6%	1	`(-.f64 lambda1 lambda2)`
32.6%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
32.6%	1	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
32.6%	1	`lambda1`
32.6%	1	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
32.6%	1	`lambda2`
32.6%	1	`phi1`
32.6%	1	`R`
32.6%	1	`phi2`
32.6%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`

Compiler

Compiled 196 to 142 computations (27.6% saved)

regimes118.0ms (0.3%)

Memory

-34.8MiB live, 202.6MiB allocated; 58ms collecting garbage

Counts

26 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

12 calls:

27.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
11.0ms	lambda2
10.0ms	R
10.0ms	phi1
7.0ms	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))

Results

Accuracy	Segments	Branch
30.1%	1	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
30.1%	1	`R`
30.1%	1	`lambda1`
30.1%	1	`(-.f64 lambda1 lambda2)`
30.1%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
33.2%	2	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
33.2%	2	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
30.1%	1	`lambda2`
30.1%	1	`phi2`
32.9%	2	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
35.2%	3	`phi1`
30.1%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`

Compiler

Compiled 196 to 142 computations (27.6% saved)

regimes49.0ms (0.1%)

Memory

-25.3MiB live, 21.6MiB allocated; 4ms collecting garbage

Counts

25 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

46.0ms

phi1

Results

Accuracy	Segments	Branch
35.2%	3	`phi1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes9.0ms (0%)

Memory

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

Counts

23 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

6.0ms

phi1

Results

Accuracy	Segments	Branch
35.1%	3	`phi1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes132.0ms (0.3%)

Memory

-29.1MiB live, 162.8MiB allocated; 9ms collecting garbage

Counts

22 → 1

Calls

Call 1

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

Outputs

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

Calls

12 calls:

10.0ms	phi2
7.0ms	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
7.0ms	phi1
6.0ms	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
6.0ms	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))

Results

Accuracy	Segments	Branch
28.8%	1	`lambda1`
28.8%	1	`(-.f64 lambda1 lambda2)`
28.8%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
28.8%	1	`lambda2`
28.8%	1	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
28.8%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
28.8%	1	`R`
28.8%	1	`phi2`
28.8%	1	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
28.8%	1	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
28.8%	1	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
28.8%	1	`phi1`

Compiler

Compiled 196 to 142 computations (27.6% saved)

regimes85.0ms (0.2%)

Memory

16.5MiB live, 111.9MiB allocated; 5ms collecting garbage

Counts

14 → 2

Calls

Call 1

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

Outputs

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

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

Calls

12 calls:

35.0ms	phi2
7.0ms	R
4.0ms	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
4.0ms	(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
4.0ms	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))

Results

Accuracy	Segments	Branch
26.1%	1	`lambda2`
26.1%	1	`R`
26.1%	1	`phi1`
28.5%	2	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
26.1%	1	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
26.1%	1	`lambda1`
26.1%	1	`phi2`
28.7%	2	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
28.7%	2	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
26.1%	1	`(-.f64 lambda1 lambda2)`
26.1%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
26.1%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`

Compiler

Compiled 196 to 142 computations (27.6% saved)

regimes14.0ms (0%)

Memory

-8.1MiB live, 38.6MiB allocated; 2ms collecting garbage

Counts

8 → 1

Calls

Call 1

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

Outputs

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

Calls

4 calls:

4.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
3.0ms	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
3.0ms	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
3.0ms	(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
26.1%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
26.1%	1	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
26.1%	1	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
26.1%	1	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))

Compiler

Compiled 130 to 77 computations (40.8% saved)

regimes34.0ms (0.1%)

Memory

-1.1MiB live, 92.9MiB allocated; 4ms collecting garbage

Accuracy

Total -8.9b remaining (-17.6%)

Threshold costs -8.9b (-17.6%)

Counts

7 → 1

Calls

Call 1

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

Outputs

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

Calls

12 calls:

4.0ms	lambda2
4.0ms	(-.f64 lambda1 lambda2)
3.0ms	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
3.0ms	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
3.0ms	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))

Results

Accuracy	Segments	Branch
20.7%	1	`lambda2`
20.7%	1	`R`
20.7%	1	`phi1`
20.7%	1	`lambda1`
20.7%	1	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
20.7%	1	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
20.7%	1	`(-.f64 lambda1 lambda2)`
20.7%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
20.7%	1	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
20.7%	1	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
20.7%	1	`phi2`
20.7%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`

Compiler

Compiled 196 to 142 computations (27.6% saved)

bsearch203.0ms (0.5%)

Memory

16.2MiB live, 393.6MiB allocated; 33ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
114.0ms	1.4984198824022056e-30	8.139882517890685e-24
74.0ms	-7.553100049955965e-8	-1.4550949108776508e-8

Samples

156.0ms	205×	1	valid
10.0ms	35×	0	valid

Compiler

Compiled 2 825 to 1 879 computations (33.5% saved)

Precisions

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

ival-sin: 55.0ms (35.5% of total)

ival-cos: 42.0ms (27.1% of total)

adjust: 12.0ms (7.8% of total)

ival-mult!: 12.0ms (7.8% of total)

ival-sqrt: 11.0ms (7.1% of total)

ival-div!: 8.0ms (5.2% of total)

ival-pow2: 5.0ms (3.2% of total)

ival-atan2: 5.0ms (3.2% of total)

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

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

bsearch68.0ms (0.2%)

Memory

29.7MiB live, 126.6MiB allocated; 7ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
3.0ms	1.4984198824022056e-30	8.139882517890685e-24
57.0ms	-7.553100049955965e-8	-1.4550949108776508e-8

Samples

49.0ms	66×	1	valid
2.0ms	14×	0	valid

Compiler

Compiled 2 990 to 1 444 computations (51.7% saved)

Precisions

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

ival-sin: 15.0ms (31.3% of total)

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

adjust: 5.0ms (10.4% of total)

ival-pow2: 5.0ms (10.4% of total)

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

ival-sqrt: 2.0ms (4.2% of total)

ival-atan2: 2.0ms (4.2% of total)

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

ival-div!: 1.0ms (2.1% of total)

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

bsearch135.0ms (0.3%)

Memory

-33.0MiB live, 248.9MiB allocated; 18ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
78.0ms	1.4984198824022056e-30	8.139882517890685e-24
44.0ms	-7.553100049955965e-8	-1.4550949108776508e-8

Samples

106.0ms	130×	1	valid
4.0ms	30×	0	valid

Compiler

Compiled 3 065 to 1 504 computations (50.9% saved)

Precisions

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

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

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

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

adjust: 7.0ms (6.8% of total)

ival-sqrt: 4.0ms (3.9% of total)

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

ival-pow2: 3.0ms (2.9% of total)

ival-div!: 3.0ms (2.9% of total)

ival-atan2: 3.0ms (2.9% of total)

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

bsearch10.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
3.0ms	1.4984198824022056e-30	8.139882517890685e-24
2.0ms	-7.553100049955965e-8	-1.4550949108776508e-8

Compiler

Compiled 3 029 to 1 516 computations (50% saved)

bsearch57.0ms (0.1%)

Memory

16.5MiB live, 65.4MiB allocated; 5ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
49.0ms	1.4984198824022056e-30	8.139882517890685e-24
2.0ms	-7.553100049955965e-8	-1.4550949108776508e-8

Samples

42.0ms	36×	1	valid
2.0ms	12×	0	valid

Compiler

Compiled 2 993 to 1 534 computations (48.7% saved)

Precisions

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

ival-cos: 22.0ms (52.7% of total)

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

adjust: 2.0ms (4.8% of total)

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

ival-div!: 1.0ms (2.4% of total)

ival-pow2: 1.0ms (2.4% of total)

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

ival-sqrt: 1.0ms (2.4% of total)

ival-atan2: 1.0ms (2.4% of total)

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

bsearch24.0ms (0.1%)

Memory

-24.4MiB live, 22.3MiB allocated; 2ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
3.0ms	1.4984198824022056e-30	8.139882517890685e-24
2.0ms	-7.553100049955965e-8	-1.4550949108776508e-8

Compiler

Compiled 2 993 to 1 534 computations (48.7% saved)

bsearch453.0ms (1%)

Memory

65.3MiB live, 795.8MiB allocated; 134ms collecting garbage

Algorithm

3×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
164.0ms	5.877324401625917e-21	0.0027443863079759795
107.0ms	-2.6212080079028387e-48	-8.156976403719747e-53
160.0ms	-2.386524528691815e+60	-3.2933347411467397e+47

Samples

395.0ms	397×	1	valid
8.0ms	51×	0	valid

Compiler

Compiled 6 720 to 3 306 computations (50.8% saved)

Precisions

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

ival-sin: 135.0ms (35.7% of total)

ival-cos: 113.0ms (29.9% of total)

adjust: 42.0ms (11.1% of total)

ival-mult!: 32.0ms (8.5% of total)

ival-div!: 14.0ms (3.7% of total)

ival-sqrt: 13.0ms (3.4% of total)

ival-pow2: 11.0ms (2.9% of total)

ival-atan2: 10.0ms (2.6% of total)

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

ival-add!: 2.0ms (0.5% of total)

bsearch14.0ms (0%)

Memory

-23.3MiB live, 22.0MiB allocated; 6ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
3.0ms	5.877324401625917e-21	0.0027443863079759795
3.0ms	-2.6212080079028387e-48	-8.156976403719747e-53

Compiler

Compiled 4 300 to 2 086 computations (51.5% saved)

bsearch190.0ms (0.4%)

Memory

17.4MiB live, 175.7MiB allocated; 61ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
69.0ms	7.862288384823708e-15	3.93377404542276e-14
109.0ms	-3.4442743495432497e-34	-1.3335433670896534e-35

Samples

162.0ms	181×	1	valid
4.0ms	27×	0	valid

Compiler

Compiled 3 176 to 1 538 computations (51.6% saved)

Precisions

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

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

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

adjust: 12.0ms (9.9% of total)

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

ival-sqrt: 5.0ms (4.1% of total)

ival-pow2: 5.0ms (4.1% of total)

ival-div!: 4.0ms (3.3% of total)

ival-atan2: 4.0ms (3.3% of total)

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

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

bsearch11.0ms (0%)

Memory

-33.9MiB live, 12.4MiB allocated; 3ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
2.0ms	7.862288384823708e-15	3.93377404542276e-14
3.0ms	-3.4442743495432497e-34	-1.3335433670896534e-35

Compiler

Compiled 3 248 to 1 574 computations (51.5% saved)

bsearch44.0ms (0.1%)

Memory

0.3MiB live, 45.7MiB allocated; 3ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
36.0ms	15789.232558130063	22598.36940411831
2.0ms	-7.553100049955965e-8	-1.4550949108776508e-8

Samples

31.0ms	40×	1	valid
2.0ms	8×	0	valid

Compiler

Compiled 2 144 to 1 186 computations (44.7% saved)

Precisions

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

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

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

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

adjust: 2.0ms (6.5% of total)

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

ival-sqrt: 1.0ms (3.3% of total)

ival-pow2: 1.0ms (3.3% of total)

ival-div!: 1.0ms (3.3% of total)

ival-atan2: 1.0ms (3.3% of total)

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

bsearch267.0ms (0.6%)

Memory

8.6MiB live, 241.6MiB allocated; 25ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
148.0ms	4.6867694919138935e+27	1.298522898702845e+32
99.0ms	-0.28157843609747446	-9.765873675601352e-8

Samples

227.0ms	252×	1	valid
3.0ms	20×	0	valid

Compiler

Compiled 2 414 to 1 564 computations (35.2% saved)

Precisions

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

ival-sin: 97.0ms (44.6% of total)

ival-cos: 58.0ms (26.7% of total)

adjust: 18.0ms (8.3% of total)

ival-mult!: 14.0ms (6.4% of total)

ival-sqrt: 8.0ms (3.7% of total)

ival-pow2: 6.0ms (2.8% of total)

ival-atan2: 6.0ms (2.8% of total)

ival-div!: 5.0ms (2.3% of total)

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

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

bsearch4.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.0007142638475485958	0.0007922650378961701
0.0ms	-6.140535686637371e-26	-4.572880525180681e-35

Compiler

Compiled 53 to 35 computations (34% saved)

bsearch4.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.0007142638475485958	0.0007922650378961701
0.0ms	-6.140535686637371e-26	-4.572880525180681e-35

Compiler

Compiled 53 to 35 computations (34% saved)

bsearch4.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.0007142638475485958	0.0007922650378961701
0.0ms	-6.140535686637371e-26	-4.572880525180681e-35

Compiler

Compiled 53 to 35 computations (34% saved)

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.0007142638475485958	0.0007922650378961701
0.0ms	-6.140535686637371e-26	-4.572880525180681e-35

Compiler

Compiled 53 to 35 computations (34% saved)

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.0007142638475485958	0.0007922650378961701
0.0ms	-6.140535686637371e-26	-4.572880525180681e-35

Compiler

Compiled 53 to 35 computations (34% saved)

bsearch2.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.0007142638475485958	0.0007922650378961701
0.0ms	-6.140535686637371e-26	-4.572880525180681e-35

Compiler

Compiled 53 to 35 computations (34% saved)

bsearch6.0ms (0%)

Memory

-38.2MiB live, 5.1MiB allocated; 5ms collecting garbage

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.0007142638475485958	0.0007922650378961701
0.0ms	-0.002705545698021046	-0.0007899850707531831

Compiler

Compiled 53 to 35 computations (34% saved)

bsearch2.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.45343077017479494	0.454151749530117

Compiler

Compiled 56 to 34 computations (39.3% saved)

bsearch2.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.45343077017479494	0.454151749530117

Compiler

Compiled 56 to 34 computations (39.3% saved)

bsearch2.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.45343077017479494	0.454151749530117

Compiler

Compiled 56 to 34 computations (39.3% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.05052523035513943	0.050683260457154045

Compiler

Compiled 37 to 35 computations (5.4% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.05052523035513943	0.050683260457154045

Compiler

Compiled 37 to 35 computations (5.4% saved)

bsearch221.0ms (0.5%)

Memory

32.5MiB live, 263.4MiB allocated; 31ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
89.0ms	0.0005960464545042942	5.286070777407294
120.0ms	-565217560.6625849	-156.18081725309042

Samples

190.0ms	243×	1	valid
5.0ms	29×	0	valid

Compiler

Compiled 2 396 to 1 622 computations (32.3% saved)

Precisions

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

ival-sin: 63.0ms (34.5% of total)

ival-cos: 48.0ms (26.3% of total)

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

ival-sqrt: 15.0ms (8.2% of total)

adjust: 14.0ms (7.7% of total)

ival-pow2: 6.0ms (3.3% of total)

ival-atan2: 6.0ms (3.3% of total)

ival-div!: 5.0ms (2.7% of total)

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

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

bsearch30.0ms (0.1%)

Memory

4.5MiB live, 49.4MiB allocated; 5ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
21.0ms	0.0005960464545042942	5.286070777407294
6.0ms	-565217560.6625849	-156.18081725309042

Samples

17.0ms	26×	1	valid
1.0ms	6×	0	valid

Compiler

Compiled 2 651 to 1 469 computations (44.6% saved)

Precisions

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

ival-cos: 5.0ms (30.9% of total)

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

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

adjust: 1.0ms (6.2% of total)

ival-sqrt: 1.0ms (6.2% of total)

ival-div!: 1.0ms (6.2% of total)

ival-pow2: 1.0ms (6.2% of total)

ival-atan2: 1.0ms (6.2% of total)

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

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

bsearch134.0ms (0.3%)

Memory

-63.4MiB live, 99.9MiB allocated; 85ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
87.0ms	5.877324401625917e-21	0.0027443863079759795
40.0ms	-7.553100049955965e-8	-1.4550949108776508e-8

Samples

76.0ms	105×	1	valid
3.0ms	23×	0	valid

Compiler

Compiled 2 196 to 1 250 computations (43.1% saved)

Precisions

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

ival-sin: 29.0ms (39.3% of total)

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

adjust: 6.0ms (8.1% of total)

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

ival-sqrt: 3.0ms (4.1% of total)

ival-pow2: 3.0ms (4.1% of total)

ival-atan2: 3.0ms (4.1% of total)

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

ival-div!: 2.0ms (2.7% of total)

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

bsearch91.0ms (0.2%)

Memory

8.9MiB live, 103.5MiB allocated; 7ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
83.0ms	5.877324401625917e-21	0.0027443863079759795
2.0ms	-2.6212080079028387e-48	-8.156976403719747e-53

Samples

73.0ms	98×	1	valid
3.0ms	14×	0	valid

Compiler

Compiled 2 552 to 1 492 computations (41.5% saved)

Precisions

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

ival-sin: 27.0ms (37.9% of total)

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

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

adjust: 6.0ms (8.4% of total)

ival-sqrt: 3.0ms (4.2% of total)

ival-pow2: 3.0ms (4.2% of total)

ival-div!: 2.0ms (2.8% of total)

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

ival-atan2: 2.0ms (2.8% of total)

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

bsearch7.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
3.0ms	5.877324401625917e-21	0.0027443863079759795
2.0ms	-2.6212080079028387e-48	-8.156976403719747e-53

Compiler

Compiled 2 606 to 1 708 computations (34.5% saved)

bsearch6.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
3.0ms	5.877324401625917e-21	0.0027443863079759795
2.0ms	-2.6212080079028387e-48	-8.156976403719747e-53

Compiler

Compiled 2 498 to 1 456 computations (41.7% saved)

bsearch80.0ms (0.2%)

Memory

-4.3MiB live, 87.8MiB allocated; 5ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
73.0ms	5.877324401625917e-21	0.0027443863079759795
2.0ms	-2.6212080079028387e-48	-8.156976403719747e-53

Samples

65.0ms	85×	1	valid
2.0ms	11×	0	valid

Compiler

Compiled 2 642 to 1 540 computations (41.7% saved)

Precisions

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

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

ival-cos: 17.0ms (27.4% of total)

adjust: 6.0ms (9.7% of total)

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

ival-sqrt: 3.0ms (4.8% of total)

ival-div!: 2.0ms (3.2% of total)

ival-pow2: 2.0ms (3.2% of total)

ival-atan2: 2.0ms (3.2% of total)

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

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

bsearch6.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
2.0ms	0.0005960464545042942	5.286070777407294
3.0ms	-565217560.6625849	-156.18081725309042

Compiler

Compiled 3 094 to 1 700 computations (45.1% saved)

bsearch5.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
3.0ms	5.877324401625917e-21	0.0027443863079759795
2.0ms	-7.553100049955965e-8	-1.4550949108776508e-8

Compiler

Compiled 2 420 to 1 426 computations (41.1% saved)

bsearch123.0ms (0.3%)

Memory

-10.5MiB live, 84.6MiB allocated; 8ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
3.0ms	5.877324401625917e-21	0.0027443863079759795
114.0ms	-1.4550949108776508e-8	-4.3025478413934553e-14

Samples

103.0ms	122×	1	valid
3.0ms	22×	0	valid

Compiler

Compiled 3 450 to 1 953 computations (43.4% saved)

Precisions

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

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

ival-sin: 30.0ms (30.2% of total)

adjust: 7.0ms (7% of total)

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

ival-sub!: 4.0ms (4% of total)

ival-sqrt: 4.0ms (4% of total)

ival-pow2: 3.0ms (3% of total)

ival-div!: 3.0ms (3% of total)

ival-atan2: 3.0ms (3% of total)

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

bsearch6.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
2.0ms	0.0005960464545042942	5.286070777407294
3.0ms	-565217560.6625849	-156.18081725309042

Compiler

Compiled 2 653 to 1 556 computations (41.3% saved)

bsearch8.0ms (0%)

Memory

-35.6MiB live, 9.7MiB allocated; 4ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
4.0ms	0.0005960464545042942	5.286070777407294
2.0ms	-565217560.6625849	-156.18081725309042

Compiler

Compiled 2 635 to 1 547 computations (41.3% saved)

bsearch106.0ms (0.2%)

Memory

51.5MiB live, 140.9MiB allocated; 7ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
2.0ms	0.0005960464545042942	5.286070777407294
98.0ms	-4.210109935174029e+27	-9.27385965532724e+22

Samples

90.0ms	127×	1	valid
0.0ms	1×	0	valid

Compiler

Compiled 2 500 to 1 498 computations (40.1% saved)

Precisions

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

ival-sin: 30.0ms (35.5% of total)

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

adjust: 7.0ms (8.3% of total)

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

ival-sqrt: 4.0ms (4.7% of total)

ival-pow2: 3.0ms (3.6% of total)

ival-atan2: 3.0ms (3.6% of total)

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

ival-div!: 2.0ms (2.4% of total)

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

bsearch8.0ms (0%)

Memory

-45.9MiB live, 7.4MiB allocated; 6ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
2.0ms	0.0005960464545042942	5.286070777407294
5.0ms	-4.210109935174029e+27	-9.27385965532724e+22

Compiler

Compiled 2 500 to 1 506 computations (39.8% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	3.868644560110437e-28	0.00016962873488556476

Compiler

Compiled 37 to 35 computations (5.4% saved)

bsearch137.0ms (0.3%)

Memory

26.0MiB live, 161.6MiB allocated; 12ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
106.0ms	1.8790564855470427e-53	8.817589593535963e-45
24.0ms	-3.4442743495432497e-34	-1.3335433670896534e-35

Samples

112.0ms	154×	1	valid
3.0ms	22×	0	valid

Compiler

Compiled 2 772 to 1 666 computations (39.9% saved)

Precisions

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

ival-sin: 38.0ms (36.7% of total)

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

adjust: 9.0ms (8.7% of total)

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

ival-sqrt: 5.0ms (4.8% of total)

ival-pow2: 4.0ms (3.9% of total)

ival-atan2: 4.0ms (3.9% of total)

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

ival-div!: 3.0ms (2.9% of total)

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

bsearch177.0ms (0.4%)

Memory

25.9MiB live, 212.9MiB allocated; 30ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
86.0ms	1.8790564855470427e-53	8.817589593535963e-45
81.0ms	-3.4442743495432497e-34	-1.3335433670896534e-35

Samples

138.0ms	196×	1	valid
16.0ms	28×	0	valid

Compiler

Compiled 2 484 to 1 746 computations (29.7% saved)

Precisions

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

ival-sin: 50.0ms (34.8% of total)

ival-cos: 35.0ms (24.3% of total)

ival-sub!: 15.0ms (10.4% of total)

adjust: 11.0ms (7.7% of total)

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

ival-sqrt: 6.0ms (4.2% of total)

ival-pow2: 5.0ms (3.5% of total)

ival-atan2: 5.0ms (3.5% of total)

ival-div!: 4.0ms (2.8% of total)

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

bsearch12.0ms (0%)

Memory

-39.7MiB live, 10.8MiB allocated; 10ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
3.0ms	1.8790564855470427e-53	8.817589593535963e-45
8.0ms	-3.4442743495432497e-34	-1.3335433670896534e-35

Compiler

Compiled 2 580 to 1 842 computations (28.6% saved)

bsearch6.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
3.0ms	1.8790564855470427e-53	8.817589593535963e-45
2.0ms	-3.4442743495432497e-34	-1.3335433670896534e-35

Compiler

Compiled 2 580 to 1 826 computations (29.2% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.07111750683273917	0.07313842280811703

Compiler

Compiled 56 to 34 computations (39.3% saved)

derivations2.0s (4.5%)

Memory

38.6MiB live, 1 977.1MiB allocated; 304ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 2 904 to 774 computations (73.3% saved)

preprocess914.0ms (2.1%)

Memory: -25.5MiB live, 1 805.7MiB allocated; 288ms collecting garbage
Remove: (negabs R)
Compiler: Compiled 21 647 to 9 568 computations (55.8% saved)

end0.0ms (0%)

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